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Vorwort 


Lieber Colour-Genie Freund! 

Das Colour-Genie erfreut sich immer größerer Beliebtheit. So 
ist es auch nicht verwunderlich, daß immer wieder der Ruf nach 
einem Buch laut wurde, das speziell für das Colour-Genie ge- 
schrieben wurde und das auf die vielfältigen Möglichkeiten des 
Colour-Genies eingeht. 

Nun, das Warten hat ein Ende: Vor Ihnen liegt das "Colour-Genie 
Buch 1" 1 

Ein Buch, auf das wir stolz sind, denn es ist vollgepackt mit 
interessanten Programmen und Informationen und es bietet sowohl 
dem Anfänger als auch dem fortgeschrittenen Programmierer, so- 
wohl dem Spielefreund als auch dem "ernsthaften" Anwender Pro- 
grammlist ings und Erklärungen, die helfen, das Colour-Genie 
besser zu verstehen und besser zu nutzen. 

Schauen Sie ruhig einmal in das Inhal tsverzeichnis auf den 
nächsten beiden Seiten, blättern Sie einmal durch das Buch und 
Sie werden sehen, wie vielfältig der Inhalt ist. 

Wir hoffen, daß Sie Ihr Colour-Genie so vielseitig einsetzen, 
wie es seinen Möglichkeiten entspricht und daß Sie viel Freude 
mit Ihrem Computer haben werden. 

In diesem Sinne wünschen wir Ihnen nun viel Spaß beim Lesen. 
Abtippen und Ausprobieren ' 


Mal le Braun 
Jürgen Buchmüller 
Frank Seger 


Bonn, im August 1983 
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Zur Gliederung 


Wie Sie vielleicht schon aus dem Inhaltsverzeichnis ersehen 
konnten, haben wir versucht, die einzelnen Teile dieses Buches 
in eine sinnvolle Reihenfolge zu bringen. 

Zu Beginn finden Sie drei interessante Spielprogramme, die alle 
bereits auf dem 16K-Grundgerät laufen. 

Es folgen dann die Listings zweier Spielprogramme, die mit dem 
"Col our-Compi ler" compiliert werden müssen. 

Nach den Spielen folgen mehrere Programme und Erläuterungen, 
die Ihnen ein tieferes Verständnis für Ihren Computer erleich- 
tern sollen, unter anderem ein^ komplette* Maschinensprache- 
Monitor in Basic, der es Ihnen ermöglicht, über die Ebenen der 
Basicprogrammierung auf die Ebene der Maschinenprogrammierung 
vorzustoßen. 

Etliche Kapitel befassen sich mit der Programmierung eines an- 
geschlossenen Druckers - besondere Freude werden Besitzer des 
STAR-Pr inters DP 510/515 an den abgedruckten Programmen haben. 

Im Anhang finden Sie dann noch eine Liste der Bas ic -Tokens , 
eine Dezimal -Hexadezimal Tabelle, sowie eine Liste der verfüg- 
baren TCS-Col our-Genie Software. 


**** ACHTUNG **** 

In den Listings entspricht das Paragraphenzeichen (§) dem 
"Klammeraffen” C ©). der rechts neben der <P>-Taste liegt, und 
das große dem Aufwärtspfeil ). der zur Exponential- 

rechnung benötigt wird. 
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SUMM BUMM 


"Bumm Bumm" ist ein einfaches, jedoch sehr lustiges Telespiel. 
Zwei Spieler spielen gegeneinander. Oeder Spieler hat eine 
Kanone und muß nun versuchen, seinen Gegner abzuschießen. 

Dazu braucht man ein gewisses Gefühl für Ballistik, denn 
ein Schuß wird durch die Eingabe des Abschußwinkels und der 
Abschußgeschwindigkeit gesteuert . 

Das Programm soll hier nicht komplett erklärt werden - 
einige interessante Teile seien jedoch erläutert! 


In Zeile 20 wird in das CRTC-Register für Ze ichen-End-Raster 
eine 0 gePOHEto. Dies bewirkt, daß die FGR-Darstel lung nur 
in halber Hohe erfolgt. Dabei wird der FQR-Speicher zweimal 
untereinander dargestellt. Diese doppelte Darstellung ist im 
übrigen leider nicht vermeidbar. In Zeile 690 wird diese 
CRTC-Programmierung durch POKE 17158,1 wieder rückgängig 
gemacht . Siehe hierzu auch Anhang A des Handbuchs 
"Colour Basic - leicht gelernt". 


Erwähnenswert ist auch, wie der Titel "BUMM BUMM" im FGR-Modus 
gezeichnet wird. Dabei werden nicht alle Zeichen über einzelne 
PLOTs erzeugt, sondern alle Zeichen sind in einer 5 mal 8 
Matrix codiert. Die Werte dieser Codierung stehen in den DATA- 
Zeilen 130 bis 160. 

Ausgelesen werden die Werte in den Zeilen 330 bis 430. 

Die wichtigste Zeile in dieser Routine ist Zelle 380. 

Hier wird geprüft, ob das Bit. angegeben durch Variable B, 

in dem aus der DATA-Zeile gelesenen Wert A gesetzt ist oder 

nicht. Dazu wird mit den Zweierpotenzen 1 bis 16 verglichen, 
die in AC0I bis AC4) gespeichert sind (siehe Zeilen 
60 bis 1O0) . 

Analog sind in den DATA-Zeilen 170 bis 260 die Werte für 
die Ziffern 0 bis 9 gespeichert, die in der Winkel- u. 
Geschwindigkeitseingabe benötigt werden. 


Für Patrioten sei hier noch erklärt, wie das Deutschlandlied am 
Ende des Programms erzeugt wird. Nötig hierzu sind die DATA- 
Zeilen 110 bis 120 und der Programmteil von Zeile 2510 bis 2530 
und weiter von 2580 bis 2610. Ein Sprung auf Zeile 2510 spielt 
das Deutschlandlied ab. Zeile 2540 bis 2570 dienen nur dazu, 
den Namen des Siegers in allen Farben leuchten zu lassen, darum 
können diese Zeilen weggelassen werden. 
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10 FCLS 

20 POKE 17158,0 
30 FGR 

40 DEFINTA-C ,E-V 
50 D I MZ 0,4) 

60 A= 128 

70 F0RL=7T00STEP- 1 
80 ACL1«A 
90 A = A/2 
100 NEXTL 

1 1 0 0ATA3 ,1,3. 1,3, 1,3, 2, 3. 3. 3. 3, 3, 2. 3, 2, 3. 4, 3, 4, 3, 3. 3, 3, 3. 2, 2, 7. 3. 1.3, 

1.3, 6, 3. 6, 3. 5, 3, 5, 3, 4, 3, 4. 3. 3. 3. 3. 3. 2, 3. 2, 3. 3, 3, 1.3, 5. 3, 5. 3. 5, 3. 5 

1 20 DATR4 ,1.4. 1.4, 1.3, 7, 3. 7. 3. 6, 3, 5, 3. 5. 3, 6, 3. 6. 3, 6, 3, 5, 3. 5, 3, 4. 3. 3, 3. 

3, 3, 2. 3, 2, 3, 3. 3, 4, 3, 5, 3. 6. 3. 4, 3. 2, 3, 1,3. 1.3, 3, 3, 2, 3, 1,3. 1,3.1 

130 DATA30. 17, 17,30, 17, 17,30.0 

140 DATA17. 17, 17, 17, 17, 17, 14,0 

150 0ATA17 , 27.21.21,17,17.17,0 

160 DATA17.27.21 ,21 , 17, 17, 17,0 

170 DATA21 . 17, 17.17.21 

180 DATA1 . 1 . 1 , 1 , 1 

190 DATA21 .1.21,16,21 

200 DATA21. 1,5. 1.21 

210 DATA 17 , 17,21,1,1 

220 DATA21 .16,21,1,21 

230 0ATA16, 16.21 .17,21 

240 0ATA21 , 1 , 1 , 1 , 1 

250 DATA21 . 17,21 , 17.21 

260 DATA21 ,17.21,1.1 

270 FCLS 

280 FGR 

290 RESTORE 

300 FORL= 1T063 

310 READL1.L2 

320 NEXTL 

330 F0RC-0T03 

340 F0RD=0T07 

350 READA 

360 F0RB = 4T00STEP- 1 

370 X=28+C *38-8*5+0 

380 IFCAANDACB) ) < >ACB)THEN430 

390 Y=D*12 

400 FCOLOUR4 

4 1 0 PLOTX , YTOX+5 . YTOX+5 . Y+ 1 2T0X , Y+ 1 2T0X , Y 

420 PAINTX+1 . Y+l .3.4 

430 NEXTB.D.C 

440 F0RL=0T09 

450 F0RM=0T04 

460 REAQZCL.M) 

470 NEXTd.L 
480 CLS 
490 C0L0UR4 
500 LGR 


6 



510 PRINT"Bei diesem Spiel, dass 2 Spieler gegen 
520 PR INT"e inander spielen, geht es darum, die" 
530 PRINT"gegner ische Kanone abzuschiessen . " 

540 PRINT"Dazu muss jeweils der Abschusswinkel” 
550 PRINT"und die Abschussgeschwindigkeit der" 
560 PRINT"Kanonenkugel eingegeben werden," 

570 PRINT 

580 PRINT"Gewonnen hat derjenige, der als erster 
590 PR INT "5 Treffer hat." 

600 PRINT 

610 PRINT"Reihenfolge der Eingaben:" 

620 PRINT"Winkel : 0 bis 90 Grad" 

630 PRINT"Geschwindigkeit : 0 bis 99 Meter/sec." 
640 PRINT 
650 PRINT 
660 PRINT 

670 PR INT "Geben Sie jetzt bitte Ihre Namen ein:" 

680 PRINT 

690 POKE 17 158 , 1 

700 C0L0UR5 

710 INPUT"NAME DES 1. KANONIERS"; CS 
720 C0L0UR2 

730 INPUT"NAME DES 2. KANON IERS";BS 
740 I FCS =B$THEN700 
750 WF=RND( 2) 

760 IFS1 >40RS2>4THEN2290 

770 GOSUB 1710 

780 P= 18440 

790 Z=S1 

800 GOSUB2090 

810 P= 1 8470 

820 Z=S2 

830 G0SUB2090 

840 IFWF=2THEN1210 

850 P= 18434 

860 G0SUB2180 

870 W1=A*10 

880 P=P+1 

890 G0SUB2180 

900 W1=W1+A 

910 P= 18437 
920 G0SUB2180 
930 G 1 =A* 10 
940 P=P+1 
950 G0SUB2180 
960 G1*G1+A 
970 GOSUB 1430 
980 XP=P1+11 
990 YP=Q1 -8 
1000 GOSUB 1570 



1010 I FV<2THENWF=0 : Q0SUB2350 :G0T01210 

1020 I FX0<80THEN1 400 

1030 S1=S1+1 

1040 WF = 1 

1050 S0UND7 , 247 

1060 S0UND6 , 31 

1070 SOUNDS , 16 

1080 SOUNDS. 0 

1090 SOUND 12. 150 

1100 S0UND13 , 9 

1110 FORA= 1T0100 

1120 FCOLOURRNDC 3) + 1 

1130 C IRCLEXO , YO , AAND7 

1140 S0UN06 , RAND 1 5 

1150 NEXTA 

1160 FC0L0UR1 

1170 F0RA=OTO8 

1180 CIRCLEXO.YO.A 

1190 NEXTA 

1200 60T0760 

1210 P= 18464 

1220 G0SUB2 1 80 

1230 W1=A*10 

1240 P=P+1 

1250 G0SUB2 180 

1260 W1=W1+A 

1270 P= 18467 

1280 G0SUB2180 

1290 G 1 =A# 10 

1300 P=P+1 

1310 G0SUB2180 

1320 Gl =G1+A 

1330 G0SUB1430 

1340 DX=-DX 

1350 XP=P2- 1 

1360 YP=Q2-8 

1370 G0SUB1570 

1 380 I FV<2THENWF =0 : G0SUB2350 : G0T085O 

1390 I FXO > 80THEN 1 030 

1400 S2-S2+1 

1410 WF=<2 

1420 GOTO 1050 

1430 Wl=Wl/57 

1440 S0UND7 , 247 

1450 S0UND8.10 

1460 S0UND9.10 

1470 FORL =31T00STEP- 1 

1480 S0UND6.L 

1490 F0RA= 1T04 

1500 NEXT 
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1510 NEXT 

1520 S0UND7 . 252 

1530 SOUND 1.1 

1540 0X=G1/10*C0SCW13 

1550 DY=-G1/10*SINCW13 

1560 RETURN 

1570 SOUNDO. CYPAND2553 

1580 S0UND2 , 255- ( YPRN0255 3 

1590 IFXP<00RYP<0THEN1640 

1600 V=CPOINTCXP, YP3 

1610 PLOTXP.YP 

1620 XO=XP 

1630 YO=YP 

1640 XP=XP+DX 

1650 YP=YP+DY 

1660 DY=DY+ . 1 

1670 NPLOTXO.YO 

1680 I FXP<00RYP>950RXP> 159THENRETURN 

1690 I FV=0THEN1570 

1700 RETURN 

1710 FCLS 

1720 FGR 

1730 FC0L0UR2 

1740 PI =RNDC403 

1750 P2=RNDC40)+1 10 

1760 Y»RNDC 103+50 

1770 Y=Y*5 

1780 Y1=RND(203 - 10 

1790 F0RX=1T0159 

1800 PLOTX , Y/5T0X . 96 

1810 IF(X-Pl) <10IF(X-P13 > =0Q1 =Y/5 : GOTO 1840 

1820 IFCX-P2)<10IF(X-P2) >=0Q2=Y/5: GOTO 1840 

1830 IFY+Yl > 150IF Y+Yl <480Y=Y+Y1 

1840 IF RNDC 1003 < 10Y1 =RN0C20) - 10 

1850 NEXTX 

1860 X=P1 

1870 Y=Q1 

1880 GOSUB1930 

1890 X=P2 

1900 Y=Q2 

1910 GOSUB2010 

1920 RETURN 

1930 FC0L0UR3 

1940 F0RZ=0T06 

1950 PLOTX+Z . Y-2T0X+6 . Y-Z 

1960 NEXTZ 

1970 FC0L0UR4 

1980 PLOTX+7 . Y- 4T0X+ 1 0 , Y- 7 
1990 PLOTX+7. Y-5TOX+10.Y- 7 
2000 RETURN 


2010 FC0L0UR4 
2020 F0RZ=0T06 

2030 PL0TX+ 10-Z , Y-ZTOX+4 . Y-Z 

2040 NEXTZ 

2050 FC0L0UR3 

2060 PLOTX+3 , Y-4T0X , Y-7 

2070 PLOTX+3. Y-5T0X.Y-7 

2080 RETURN 

2090 A = INTCZ/101 

2100 F0RY=0TO4 

2110 POKE P+Y#40 , Z C A , Y ) 

2120 NEXTY 

2130 A»Z-A*10 

2140 F0RY=0T04 

2150 POKE P+ Y#40+ 1 , Z C A , Y } 

2160 NEXTY 
2170 RETURN 

2180 FORY=OTO16OSTEP40 
2190 POKE P+Y . 42 
2200 AS= INKEYS 

2210 I FAS > ="0"ANDA$ < ="9"THEN2240 

2220 NEXTY 

2230 G0T02180 

2240 A=VAL C AS D 

2250 F0RY=0T04 

2260 P0KEP+Y*40.ZCA,Y) 

2270 NEXTY 
2280 RETURN 
2290 LGR 
2300 CLS 

2310 I FS1 >4THENSS*CSELSESS=B$ 
2320 PRINTSS : ” HAT GEWONNEN" 

2330 G0SUB2500 

2340 RUN 

2350 S0UND7 , 247 

2360 S0UND8 , 15 

2370 S0UND9.0 

2380 F0RL=0T031 

2390 FCOLOURRNDC 3 ) + 1 

2400 C I RCLEXO . YO . L AND3 

2410 S0UND6 , LAND7 

2420 NEXTL 

2430 FC OL OUR 1 

2440 FORL =0T03 

2450 CI RCLEXO, YO , L 

2460 NEXTL 

2470 S0UND7 , 255 

2480 FC0L0UR3 

2490 RETURN 

2500 RE STORE 
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2510 FORL* 1T063 
2520 READO.T 
2530 PLAYC 1 .O.T. 143 
2540 F=RND( 163 

2550 FORM=&HFOOOTO*HFOOO+LENCS$3 
2560 POKEM , F 
2570 NEXTM 

2580 FORM» 1T0100-LENCS4 3 

2590 NEXTM 

2600 NEXTL 

2610 PLRYC 1.1,1,03 

2620 RETURN 


■444 TUERME VON HANOI 444- 


TURM 1 


TURM 2 TURM 3 


Von Turm? 

Spielzug Nr. 0 


Türme von Hanoi ist ein bekanntes Denkspiel. Die Regeln 
werden im Programm selbst erklärt. 

Eine Besonderheit für Denkfaule: Das Programm löst das Problem 
auf Wunsch auch selbst - und zwar mit der Minimalanzahl von 
127 Zügen. Die Rechner 1 ösung ist in den Zeilen 20 und 30 
enthalten - passen Sie hier besonders auf, daß Sie sich nicht 
vertippen. 

Programml isting: 


10 CLS : CLEAR 500:0=0:A=7:CHAR4 

20 RD$*" 121 32312313^121 32321 3123 12 1323 1231 321231^32 13132 12 132312313212 
13232131^312132321313212312,321313312132312313^12132321312312132312" 

30 Z2$ ="3132123 1232 13132 121323 12313212312321312312^32321313212312321,31 
321 2, 1323 123 132121 32321, 31 23 121 323 123 132 1231232 13 132 12 13231 231 32 12" 

40 RD= 1 r 

50 PRINT"Die Scheiben des l inken Turms muessen" 

60 PR INT" in der gleichen Reihenfolge auf der" 

70 PRINT"mitt leren Scheibe liegen!!" 

80 PR INT "Dabei darf niemals eine grosse Scheibe" 

90 PR INT "auf einer kleinerer liegen!!" 

100 PRINTS720, "1 - Rechner spielt":PRINT§760. "2 - Sie spielen" 

110 X 1 * * I NKEYS ; I FX 1 SO" 1 "ANDX 1 $ < > "2 "THEN 1 1 0 

120 I FX 1 $ = " 1 "THEN 1 60 

130 FHEY1="1 

140 FKEY2«"2 

150 FHEY3="3 

160 DI MBS (3, 8) ,TC3,8) . FC 3, 7) :C1=1 :0*0 
170 POHE 16409. 70: PORE 16410, 100 
180 REM 

190 REM FARBEN 
200 REM 

210 FOR 3=1 TO 7 
220 READ FC 1,0) 
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230 NEXT 
240 REM 

250 REM POSITIONEN 
260 REM 

270 FOR C=1 TO 3 

280 FOR K=7 TO 1 STEP -1 

290 RERD TCC.K3 

300 NEXT K 

310 NEXT C 

320 REM 

330 REM SCHE IBEN-STRING' S ERSTELLEN 
340 REM 

350 FOR C«1 TO R 

360 B$ C 1 . C 3 =CHR$ C 2383 +STRINGS C C 1 , 202 3 +CHR* C 245 3 
370 C 1 =C 1+2 
380 NEXT C 
390 CLS 

400 QOSUB 640 
410 REM 

420 REM SCHEIBEN SETZEN 
430 REM 

440 FOR B= 1 TO R 
450 COLOUR FC1.B3 

460 PRINT§647-R#40+B*40-B,B$C 1 ,B) i 
470 NEXT: PRINT: PRINT 
480 REM 

490 REM SPIELEN 

500 REM 

510 COLOUR 1 

520 PRINT8848, "Spielzug Nr."0; 

530 I FX 1 S = " 1 "THENGOSUB 1280: G0T0600 
540 PR I NT8768 , STR I NGS C 4 , 32 3 ; 

550 PRINT §760 , "Von Turn": : INPUTE 

560 I FE< 10RE > 3THEN550 

570 PRINT8785.STRING$C4,323 : 

580 PR I NT8775 , "nach Turn" ; : INPUTF 
590 I FF < 10RF>3THEN580 
600 0=0+1: GOTO 860 
610 REM 

620 REM TUERME RUFBRUEN 
630 REM 

640 COLOUR 1 : FOR B=1 TO R+l 
650 PRINT8687-B*40,CHRS(2253 i 
660 PRINT8700-B#40.CHR$(2253 ; 

670 PRINT§713-B*40 , CHR$ C 2253 : 

680 NEXT 

690 PRINT6680. STRINGS C 40. 1963 s 

700 PRINT§285. "TURM 1 " : : PRINT8298 . "TURM 2" : : PRINT831 l . "TURM 3 
710 PR INT §88, STRING4C 3 . " "3:" TUERME VON HRNOI ": STRING8C 3. " 
720 RETURN 
730 REM 

740 REM FRRBEN FUER SCHEIBEN 
750 REM 

760 ORTR 14,7.12,9.6,15,3 
770 REM 

780 REM DRTRS FUER POSITIONEN 
790 REM 



80p DATA 647 , 607 , 567 , 527 , 487 , 447 , 407 
810 DATA 660 , 620 , 580 , 540 , 500 , 460 , 420 
820 DATA 673,633.533,553.513,473.433 
830 REM 

840 REM SUBROUTINE FUER SCHE IBEN-LOESCHEN 
850 REM 

860 FOR V=1 TO A 

870 IF BSCE.V) > THEN 830 

880 NEXT V 

890 FOR VI =1 TO A 

900 IF BtCF.Vl) > "" THEN 910 ELSE NEXT VI 

910 V1*V1-1 

920 IF V=8 THEN 1190 

930 IF VI <7 AND B$CE.V) < BSCF.V1+1) THEN 1140 
940 FCF.Vn-FCE.V) 

950 FOR C»1 TO INTCLENCB*CE,V) ) )/2+l 

960 PRINT8TC E , VI - INTCLENC B$ C E . V) )/2)+C-2 ,CHR$ C32) i 

970 PRINT6TC E.V)- INTCLENC BiCE, V) )/2)+LENCB» CE. V))-C+l .CHRJC32) : 

980 NEXT : COLOUR 1 

990 PRINT8TCE.V) ,CHR$C225) ; 

1000 REM 

1010 REM SUBROUTINE FUER SCHE IBEN-SETZEN 
1020 REM 

1030 COLOUR FCF.Vl) 

1040 PRINT8TC F , V 1 ) - INTC LENCB$CE,V) 1 /2) , CHRt C 238) s 
1050 PRINT8TC F , VI ) + INT C LENC B» C E , VI )/2) ,CHR*C245) : 

1060 FOR C»1 TO INTCLENC BSC E , V) ) X2) 

1070 PRINTfiTCF.Vl) -INTC LENC BfCE.V) )/2)+C .CHRSC202) : 

1080 PRINT8TC F . VI ) - INTC LENC BSC E , V) ) /2) +LENCBSCE .V))-C-l .CHRSC2 

02 ) } 

1090 NEXT 

1100 IF F»2 AND Vl=l THEN 1250 
1110 B*CF,Vl)=BSCE»V) :B$CE,V)="" 

1120 REMT1CE)=T1CE)+1 sTICF) =T1CF)-1 
1130 GOTO 510 
1140 FOR Q=1 TO 5 

1150 COLOUR 4 : PRINT80 , "Keine grosse Scheibe auf eine kleinere 
1160 FOR Ql = 1 TO 70: NEXT Ql 
1170 PRINT80.STRINGSC40, 128) ? 

1180 NEXT Q:GOTO 510 
1190 FOR Q-l TO 6 

1200 COLOUR 4 : PRINT80 , "Tur n"E"ist leer 
1210 FOR Ql=l TO 70 : NEXT Ql 
1220 PRI NT80. STRING» CI 7,1 28) j 
1230 NEXT Q : GOTO 510 

1240 FKE Y 1 « M L I ST " : FKE Y2 » "RUN " : FKE Y 3 = " AUTO ” 

1250 IF 0 > 140 THEN 1270 

1260 CLS: PRINT8440, "BRAVO-Mi t "0”Zuegen geschafft !”: PRINT: PRINT.-END 
1270 CLS: PRINT8440 , "Mi t "0"Zuegen geschafft-da fehlt die Uebung-wei 

termachen ! ":PRINT :PRINT :END 
1280 IFRD>128THENRD*aZ2*:RD«l 

1290 E-VALCMIO»CRD*,RO. 1)) : F»VALCMID*CRD* , RD+1 . I )): R0=RD+2 : RETURN 
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Schiffe versenken 

Dos im folgenden gelistete Programm ist eine Abwandlung des 
hinreichend bekannten Spiels "Schiffe versenken". Dieses Pro- 
gramm hat zwar nicht den höchsten Schwierigkeitsgrad, aber die 
Ausgabe des Feldes wird mit einigen grafischen Tricks gemacht. 
Am auffälligsten ist die Tatsache, das die Wellen tatsächlich 
rollen. Hier einige Worte dazu. 

In den Zeilen 1210 bis 1260 wird in dem Bereich von 409FH bis 
40E0H ein kleines Maschinenspracheprogramm initialisiert, das 
bei jedem 16. Aufruf den gesamten Bildschirm nach Zeichen 
zwischen 128 und 159 absucht und diese um 1 erhöht. Durch 
CALL 43D3 wird diese Routine in den Tastatur-DCB eingehängt 
(siehe Kapitel über die DCBs). Bei jeder 16. Tastaturabfrage 
werden nun die Wellen bewegt. Mit CALL 43DA wird dies wieder 
abgeschal tet . 

Noch einige Worte zum Spielablaufs 

Zunächst stellt der Rechner seine Schiffe auf, Diesfsind; 

1 Schlachtschiff ( 4 Kästchen lang 3 

2 Zerstörer ( 3 Kästchen lang 3 

3 Kreuzer ( 2 Kästchen lang 3 und 

4 Aufklarer C 1 Kästchen lang 3 

Sie können nun das rote Fadenkreuz, das oben links auf dem Was- 
ser erscheint, mit den 4 Pfeiltasten bewegen. Wenn Sie eine Po- 
sition erreicht haben, auf die Sie schießen wollen, drucken Sie 
<RETURN> . Der Rechner teilt Ihnen dann unten rechts mit ob Sie 
getroffen oder nur ins Wasser geschossen haben. Außerdem hört 
man bei einem Treffer eine Explosion und der zerschossene Teil 
eines Schiffes erscheint. Alle Schiffe liegen waagerecht, mit 
dem Bug nach rechts. Außerdem sind Sie an Ihrer Farbe erkenn- 
bar. In der untersten Bildschirmzeile sehen Sie ständig eine 
Auswertung Ihrer bisherigen "Arbeit"; die Anzahl der abgegebe- 
nen Schüsse und die Anzahl der Treffer werden dort angezeigt. 

Wenn Sie alle Schiffe zerstört haben, erscheint noch eine Aus- 
wertung, wie gut (oder wie schlecht) Sie gespielt haben. 

Programml ist ing; 
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10 CLS 

20 DE PINTA-Z 

30 D IMF 1(10,10) ,F(10,10) , RC 43 

40 S0SUB700 

50 G0T01290 

60 DATAO , 8640 , 30 , 4620 

70 DATA16416, 8608. 1054,4618 

80 DATAO, 18480, 135.-31613 

90 DATA4104, 18472,391 , -31742 

100 DATAO. 4620, 16609.8608 

110 DATA 1026, 46 18, 225, 8640 

120 DATA128, -31613, 4216. 18472 

130 DATA256, -31742, 120, 18480 

140 DATA16416, 8608, 1054,4618 

150 DATAO. 8640, 30. 4620 

160 DATA4104. 18472,391 ,-31742 

170 DATAO, 18480, 135,-31613 

180 DATA 1026, 4618. 225,8640 

190 DATAO. 4620, 16609.8608 

200 DATA256, -31742, 120, 18480 

210 DATA128, -31613,4216, 18472 

220 DATA225 .16416. 8865 . 28 

230 DATA225 .0.17280.60 

240 DATA120, 4104, -14296. 7 

250 DATA120.0. -28576, 15 

260 0ATA30. 1026, 12810, 193 

270 DATA30 .0,9240.195 

280 DATA 135. 256 ,3074.240 

290 0ATA135, 128,-30330, 112 

300 DATA225, 0.17280,60 

310 DAT A225, 16416,8865,28 

320 DATA 120.0. -28576. 15 

330 DATA120, 4104. -14296.7 

340 0ATA30 . O , 9240 , 1 95 

350 DATA30. 1026. 12810. 193 

360 DATA135, 128, -30330, 112 

370 DAT Al 35, 256. 3074, 240 

380 DATA1024. 1540, 1031, 1285 

390 DATAO, 0,4336, -32544 

400 DATAO, 2056, 2056. 4 127 

410 DATAO, 0.0. 16512 

420 DATA256. 7 175. 13073.25894 

430 DATA- 16384. 6256. -6524.-1 1598 

440 DATA1 024, 1540, 1286, 1285 

450 DATAO. 0,-32768, -32672 

460 DATAO, 0.0.4127 

470 DATAO. 0.0. 16512 

480 DATAO. 0.0,0 

490 DATAO. 0.0,0 

500 DATAO, 0.0,0 

510 DATAO. 0,0.0 

520 DATAO. 0.0,0 

530 DATAO. 0,0,0 

540 DATA-251.-1, -103,-1 
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550 DATA-128,-1 ,-103,-1 
560 DATA-244,-1 ,-104,-1 
570 DATA-224. -12056. 16544, 128 
580 DATA2593 1 , 1 3094 ,7184,7 
590 DATA- 1 1566 , -6606 .6156, 240 
600 DATA-251, -15393, -14463,-1 
610 DATA- 128, -30745, -28799, -8273 
620 DATA-4852, 25065, -4208. -13 
630 DATA-16608. -28504, 16544, 128 
640 DATAO, 0,0,0 
650 DATAO. 0.0.0 

660 DATA6407, 16673, -32447, -127 
670 DATA1 2480, 1032,516, -254 
680 DATA -32383, 16705,6433,7 
690 DATA514. 1028, 12296, 192 

700 PRINT"Ich denke mir eine Aufstellung aus'" 
710 FORX=0TO51 1STEP2 
720 READA 

730 P0KEX-3072 , AAND255 

740 P0HEX-3071 , I NT C A/256) AND255 

750 NEXTX 

760 G0SUB1210 

770 FORX= 1T010 

780 FORY^ITOIO 

790 FCX, Y) =0 

800 Fl CX, Y) =0 

810 NEXTY.X 

820 FORZslTOtO 

830 READL 

840 F0RX-1T04 

850 R( X) =0 

860 NEXTX 

870 SX=RND( 101 

880 SY=RND( 10) 

890 FORX= 1T02 

900 IFR(X) < >0THENNEXTX:G0T0840 
910 R-RNDC2) 

920 IFRCR) < >0THEN910 

930 RCR) * 1 

940 TX-SX 

950 TY=SY 

960 FORX^ITOL 

970 IFFCTX.TY) < >0THEN890 

980 I FTX- 1 > OTHENI FF C TX- 1 , TY ) O 0THEN89O 

990 I FTX+ 1 < 1 1 THEN I FF ( TX+ 1 , TY) < > 0THEN89O 

lOOO IFTY-1 > OTHENI FF (TX.TY-1) O0THEN890 

1010 I FTY+ 1 < 1 1 THEN I FF ( TX , TY+ 1)0 0THEN890 

1020 ONRGOSUBi 130. 1150. 1170, 1190 

1030 IFTX< 10RTX> 100RTY< 10RTY> 10THEN890 

1040 NEXTX 

1050 TX*SX 

1060 TY-SY 

1070 F0RX-1T0L 

1080 FCTX.TY) *L 
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1090 0NRG0SUB1 130, 1150. 1170. 1190 

1100 NEXTX 

1110 NEXTZ 

1120 RETURN 

1130 TX=TX+1 

1140 RETURN 

1150 TX-TX-1 

1160 RETURN 

1170 TY=TY+1 

1180 RETURN 

1190 TY=TY- 1 

1200 RETURN 

1210 FORX» 1T066 

1220 RERDA 

1230 P0HE&H439E+X , A 

1240 NEXT 

1250 RETURN 

1260 OATA58, 158.67.60.230,15.50.158.67. 194.227.3.229.197.33.0.68, 126,2 

54,128,56, 19,254. 160,48,15,60,60,71.230. 15.254,2,62,0,48.2,62.240. 128, 

119,35. 124,254.72.32.226,193.225.195.227.3,33,159.67.34,22.64.201,33.2 

27,3.34,22.64,201 

1270 DATA4 ,3, 3, 2. 2, 2, 1,1, 1,1 

1280 C0L0UR1 

1290 CLS 

1300 PRINT87 , "*# SCHIFFE VERSENKEN #*" 

1310 TR=0 
1320 SH»0 

1330 H1*=CHR$C 1603+CHRSC 1613 
1340 H2*=CHRSC 1763+CHRJC 1773 
1350 B1S=CHR*C 1623+CHRK 1633 
1360 B2S-CHRSC 1783+CHR$( 1793 
1370 PRINT840, STRING* C 39, 2173 : 

1380 PRINT864.CHRSC2423 : 

1390 F0RX=2T023 

1400 PRINT8X*40+24 , CHRS C 2253 ; 

1410 NEXT 
1420 C0L0UR3 

1430 PRINTS 1 46 , "Schl acht sch i ff"; 

1440 PRINT§186,Hl*:Hl$:Hl$:BlSs 
1450 PRINT8226.H2S ;H2$ ;H2$ ; B2S 
1460 C0L0UR1 

1470 PRINT8306 . "Zerstoerer "; 

1480 PR I NT 8346 ,H1$:H1$;B1S; 

1490 PRINT 8386 , H2S :H2* ;B2S ; 

1500 C0L0UR4 

1510 PR INT 8466 , "Kreu 2 er”! 

1520 PR I NT 8506 ,H1$;B1S; 

1530 PRINT8546,H2$ :B2$: 

1540 C0L0UR2 

1550 PRINT8626. "AufMaerer": 

1560 PR I NT 6666 ,Bli; 

1570 PRINT8706.B28 : 

1580 C0L0UR7 

1590 PRINT8786. "Wasser": 

1600 CALL43DA 
1610 PRINT8826 , : 

1620 FORX= 1T07 
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1630 PRINTCHR4C 128) ;CHR*C 129) : 

1640 NEXTX 
1650 PRINTA866 . i 
1660 F0RX=1T07 

1670 PRINTCHR$( 144) jCHRSC 145) : 

1680 NEXTX 

1690 FORX=1T010 

1700 F0RY*1T010 

1710 AD»&H4402+Y*80+2*X-2 

1720 P0KEAD-21504 , 1 

1730 P0KEAD-21503, 1 

1740 POHEAD- 2 1 464 , 1 

1750 POKEAD-21463, 1 

1760 POKEAD , 128 

1770 POKEAD+ 1,129 

1780 P0KEAD+40, 144 

1790 POKEAD+41 . 145 

1800 NEXTY , X 

1810 CALL43D3 

1820 X= 1 

1830 Y= 1 

1840 PRINTf 920 , SH ; "Schuesse , TR; "TreF f er " ; 

1850 CU=fcH4400+Y*80+2#X 

1860 POKECU-2 1504 , 2 

1870 POKECU-2 1503, 2 

1880 POKECU-2 1464, 2 

1890 POKECU-21463.2 

1900 POKECU , 1 88 

1910 POKECU+1 , 189 

1920 P0KECU+40, 190 

1930 POKECU+41 , 191 

1940 KB$= INKEY* 

1950 I FHB*=" M TH£N1940 

1960 IFF1 CX, Y) < > 0THENBF=0 : Q0SUB2 1 40 : G0T02080 

1970 CALL43DA 

1980 CH=PEEK(fcH4400+826) 

1990 POKECU-2 1504,1 
2000 POKECU- 2 1503,1 
2010 POKECU-21464. 1 
2020 POKECU-21463, 1 
2030 POKECU, CH 
2040 POKECU+1 .CH+1 
2050 P0KECU+40, CH+1 6 
2060 POKECU+41 , CH+1 7 
2070 CALL43D3 

2080 IFKB*=CHRSC13)THEN2480 
2090 IFKB*="Ä"THENIFY> 1THENY=Y- 1 
2100 IFKBS=CHR*C 10)THENIFY<10THENY=Y+1 
2110 IFKB*=CHR*C8)THENIFX>1THENX«X-1 
2120 IFKB*-CHR*(9)THENIFX<10THENX=X+1 
2130 GOTO 1840 

2140 IFX-10THENCH*168sG0T02170 
2150 I FF C X+ 1 . Y) -OTHENCH = 168; GOT02 1 70 
2160 CH* 166 


2170 RD=fcH4400+Y*80+2#X 
2180 IFBF-0THEN2360 
2190 S0UND6 , RND CIO) +2 1 
2200 S0UND7.7 
2210 S0UND8 , 16 
2220 SOUND 12, 200 
2230 SOUND 13, 9 
2240 FORT =170 10 
2250 POKERD-21504,6 
2260 POKERD-21503,6 
2270 POKERD- 2 1 464 , 6 
2280 POKERD-2 1 463 . 6 
2290 POKERD, 164 
2300 POKERD+1 . 165 
2310 P0KERD+40. 180 
2320 POKERD+41 ,181 
2330 QOSUB2360 
2340 NEXTT 
2350 RETURN 
2360 C0=6-F1(X,Y1 
2370 POKERD-2 1 504 , CO 
2380 POKERD-2 1503. CO 
2390 P0KER0-21464 , CO 
2400 P0KER0-21463 , CO 
2410 POKERD, CH 
2420 POKERD+1 ,CH+1 
2430 P0KERD+40 , CH+ 16 
2440 P0KERD+4 1 , CH+ 1 7 
2450 RETURN 

2460 IFKBRND64=64THENIFX< 10THENX=X+1 

2470 GOTO 1840 

2480 IFF1(X,Y)< >0THEN1840 

2490 Fl tX,Y)=F(X.Y3 

2500 IFF1CX.Y)=0THENPRINT«946, "Wasser ~{ELSEPRINT§946,"Getrof fen~s :B 

F=1 :G0SUB2140:TR=TR+i 

2510 SH=SH+1 

2520 IFTR<20THEN1840 

2530 CRLL43DR 

2540 CLS 

2550 C0L0UR1 

2560 PRINT"Sie haben »it “ ;SH : "Schuessen alle " 

2570 PRINT"Schif fe getroffen!!" 

2580 I FSH=20THENPRINT”Super , Sie sind ein hervor ragender" s PRINT"ftdei ra 
l" 

2590 I FSH < 30THENPR I NT“S i e haben gute Chancen, eine See-": PRINT"schlach 
t zu gewinnen" 

2600 I FSH < 50THENPR I NT"S i e sollten noch etwas ueben ! " 

2610 I FSH > 49THENPR I NT“Ru we i a , da haben Sie aber viel Pech":PRINT"gehab 
t j i ! i " 

2620 PR INT8960. "Neues Spiel??? 13/NJ"; 

2630 NSS= INKEYS 

2640 I FNSS < > "3 "fiNDNSS < > "N"THEN2630 
2650 I FNSS = ”3 "THENRUN 
2660 PRINT8400, "Schade" 

2670 END 
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HEKTIK - ein komplexes Spie l Programm analysiert 


"Hektik" wird schon seit längerer Zeit für 39.- DM verkauft 
und gehört zu den beliebtesten TCS-Spiel Programmen . 

Vielleicht haben Sie es schon, dann werden Sie beim Spielen 
sicher eine Menge Spass gehabt haben. Wahrscheinlich haben Sie 
sich auch gefragt, wie man ein derartiges Spiel programmiert. 
Diese Frage soll nicht unbeantwortet bleiben' 

Zwei Voraussetzungen mußen allerdings erfüllt sein; 

Ihr Colour-Genie muß 32K RAM haben, und Sie müssen den 
"Colour-Compi ler" besitzen. Denken Sie bitte nicht, daß wir Sie 
auf diese Weise zum Kauf des Compilers drangen mochten - 
der Compiler ist für schnelle Videospiel -Programmierung einfach 
unerlässlich, es sei denn Sie programmieren in Maschinenspra- 
che . 

Es folgt nun das Basic-List ing (also der "Source-Code") von 
Hektik. Wichtig ist, daß Sie beim Einschalten die MOD SEL-Taste 
gedruckt halten, da sonst der verfügbare Speicher nicht 
ausreicht ' 

Nach dem Listing finden Sie eine detaillierte Erklärung des 
Programms. Bezüglich der Bedienung des "Colour-Compi l ers" 
informieren Sie sich ggf. in dessen Handbuch. 

Das Bas lcprogramm geben Sie bitte genauso ein, wie Sie es 
hier aufgelistet finden. Die Grafikzeichen, die im Listing 
Vorkommen, geben Sie, wie in Kap. 6 des Handbuchs "Colour 
Basic - leicht gelernt" beschrieben, mit der MOD SEL-Taste 
em> 

Programm l ist ing: 

10 DATh-1 27, -32331 ,- 1 Z -1 . -32383 
£0 DATA- 1 , -6400 . 231 ,- 1 
30 DATh-61 , -6400 . £31 . -1 
40 DATA- 1 5487 . -6400 , 23 1 .-1 
50 DhTh-15487, -15616, 231 ,-1 
68 DATA-32383, -3251 2 . 1 £9 . -61 
^0 DhTh-32383 ■ -325 1 2, 1 29 ■ -32383 
88 DATAAj 0., 0 , 0 

90 DATA-32383, -32257, -32383, -32257 


100 

DATA-61 69 . 

-256 . 255 . -6 

169 

1 1 0 

DATA-1 5487 

, -6400 , 255 . 

-6169 

1 28 

ühTA-32383 

,-15616.231 

.-6169 

1 30 

DAT rt-32383 

. -32512, 1 95 

, -6205 

1 40 

DAT A-32383 

, -3251 2.129 

, -15487 

1 50 

DATA-32383 

, -32512 ■ 1 29 

, -32383 

1 60 

DATA0 . 8, 8> 

0 
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170 DATA1 70£5 . -25, -6247 , 9342 

180 DATAI^OfiS . -6334 . -26113, 1 5462 

1 90 DATh258, 51 1 j 1 »0 

260 DATa8 . 1 2736, 525 . 2852 

210 DhTh-32^0-1 • -3251 3, 1 28, 0 

220 DATA© ■ -29693 . 1 6560, <11 28 

230 DhTA-1 538 . 6264, -31 492, 1 92* 

240 OATA-1 538 • 6264 . 1 8472 . 3624 
25w DATaI 590Ü, 131 06, -25538, -2647£ 

260 DATA31 880, - 1 3236 • 1 471 6, 6425 
270 DATA-26498, 6296, 1 002O, -1 6352 
280 DATA71 68 . 1 4654 . 7230, 6425 
290 DATA6526, 61 69 . -71 32, 778 
380 DATAI 4336, -25476 . i 4460 . -26472 
310 DATA-24^05 . 61 74, 851 1 , -81 59 
320 DhTa- 24785, 61 74, 4628 , 1 2308 
330 FOP L = 0T0255 PQKEL-3072, PEEKtL + 1 8436) 
NEXTL 
348 CHAP2 

350 DATA 769,5,769,5,1282,5,1282,5,769,4 
,769-4. 514, 512, 770, 52^ ,514.0 

360 F OPL = 0TO3 1 POKE30720 + L, PEEK ( !_ + 1 8692 > 

NEXTL 

370 POKE1 6409, 7 POKE16410,6 
380 CLS 

390 E=2 M2=3 P1=1 

480 GOSUB2070 

410 B2 = 0 P2 = 0 Q = 0 Q 1 = 0 

428 GOSUB2580 COLOUR11 FORY=80TO880STEP 1 
60 F0RX=8TÜ38STEP2 

430 POKE1 7408+X+Y, 1 29 POKE 1 7409+X+ Y , 1 37 
448 POKEX+Y-4096, 6 P OKEX + Y - 489 5 , 6 
450 NEXTX , Y 

468 FOPX=0TO39 POKE 1 8288+X , 282 NEXTX 
470 FORY=40TO680STEP1 60 
488 A = Y/'28 + 2 B=37-Y'28 
498 FORY1 = 8 T 0 1 60STEP48 

508 POKE1 7408+Y+Y1 +B, 1 28 POK E Y + Y 1 + B - 4 096 
, 3 

510 POKE1 7488+Y+Y 1 +A, 1 28 POKE Y+Y 1 + A-4096 
, 3 

520 I4EXTY1 , Y 

530 PRINT8928, "PUNKTE BONUS 

3AEGER " , 

540 PRINT0956, M2, 

558 IFT=0LETP2=P£+B2 

560 SQUND7 ,56 SOUNDS, 16 SOUND9,0 SO U ND 1 0 
,8 SOUND 1 , 2 S0UND3, 4 SOUNDS, 2 SOUND12,10 
578 T = 0 T 2 = 307 1 9 02 = 3 B2 = R1*508 
580 F0RL=8T0E 

590 P0KE31 000+L, L+1 5 POKE31018+L, 1 

608 P0KE31 028+L , 1 

610 P0KE31 038+L, 3 

620 P0KE31 040+L, 32 

630 NEXTL 
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64 8 X = 1 9 : Y = 20 : H = 3£ : Hl = 32 : H£ = 3£ : X£ = t = Y£ = 8 
650 A=PEEK<-1 984M IFA=6GGT0388 
660 X1=0 V1=0 

670 IF<AAND3£>=32LETX1 =-1 G0T0718 

680 IF< AAND64>=64LETX1 =+1 =GOTO710 
690 IF <AAND08)=88LETY1 = - 1 =G0T071G 
780 IF< AAND1 6>=1 6LETY1 =+1 
710 F= 1 7408+X+Y*48 
720 IFI 1 < 1 GOTO750 

730 IFH1 =238LETH1 =3£ELSEIFH1=245LETH1=3E 

740 IFH£=£38LETH£=32ELSEIFH£=245LETH2=3£ 

750 C=C+1 = CI = <CM£>AND1 

760 IFHM 43IFH< 1 46G0T01 1 £8 

770 IFH1 >1 43IFH1 < 1 46GQT01 1 £8 

780 IFB£>0LETB2=B2-1 

790 IF CAAND1 27)< >0POKEP< H ; POKEP + 40 , Hl PO 
KEP+40+X2,H£=POKEP-£1504,15 : pOKEP-21464,1 
5 

808 IFX+X1 =0LETX1 =0ELSEIFX+X1 =39L£TX1 =0 
8 10 IFX1 < >0LETX£ = X1 = Y£ = 0 
8£0 IFY1 < >0LETY£=Y1 = X£=0 
830 P1=P+Y1*40 P=P+X1 

840 Z=PEEK<P+88> » IFZ< >1 £81 FZ< >1 £9IFZ< >1 3 

7IFZ<M35IFZ<M43IFZ< >£0£LETX1 = 0 

850 IFZ=1 35GOT01 990ELSEIFZ=1 43G0T01 990 

860 IFPEEKCP1 +40X >1 28LETY1 =0 

870 X=X+X1 : Y = Y + Y 1 P = 1 7408+X+Y*48 = I F < AAND 

127)<>0LETH = PEEK<PM H 1 =PEEK < P+48 > : H2 = PEEK 

< P + 40 + X2 > 

880 IFI 1 < 1 GOTO900 

890 I FH2=£38G0SUB1 880ELSE I FH2=245G0SUB 1 8 

80ELSEIFH£=230GOSUB1 888 

980 POKEP-E1 584, 7 * PÜKEP-21 464, 8 

910 I FX2< >01 FH£=3£P0KEP-£1 464+X2, 0 

920 IFX2 = -1 POKEP j 153 = POKEP + 40, 158 + C1 = PQK 

EP+39 , 148 

938 IFX£ = + 1 POK EP M 52 = POKEP + 40 M 50 + C1 = POK 
EP+4 1,146 

948 IFY2O0POKEP, 155 + C1 *2 = POKEP + 40, 154 + C 
1 *2 

950 IF< AAHD1 £8)< >1 £8G0T01 670 
968 IFX2=8G0T01 058 

978 SOUNDS M 6 > SOUND 1 3, 9 « SOUND0, 0 « SOUND 1 , 

4 — C 1 

988 POKEP+40+X2, 1 48-<X£+1 >+C1 

998 IFC1 =0GOTO1 870 

1008 P=P+80+X£ : Z=PEEK<P> 

1010 IFPEEK<-1 920>=1 GOTOI 858 
1020 IFZM £8IFZ< 1 35POKEP, Z+1 * GOTOI 07 8 
1030 IFZM 36IFZ< t 43P0KEP, Z+1 GOTO1870 
1040 GOTO 1 070 



1050 I FZ > 1 £ 9 I FZ< 1 36P0KEP, Z - 1 =GOTO1070 
1060 IFZ>1 37IFZC 1 44P0KEP, Z-1 =GOTO1070 
107 0 Ql =Q1 +1 : IFQ1 X6-R1 X2LETQ1 =8 GOSUB1 
488ELSEFORM=1TO300: NEXTM 
1080 I FZ£= 1 LETZ£=0 : GOTOI 1 £0 
1090 C0LOURRND< 1 6 > « PRINT61 4 , "** HEKTIK * 
; : PRINT8927, PS; 11 0 “ j :PRINT@942,B2;“0 "j 
1100 IFT-1=ELETT=0:R1=R1+1 =IFE<5LETE=E+1 
: GOTO420ELSE428 
1118 GOTO650 

1 1 £0 S0UND7,56: SOUNDS , 8 = FORL = 8TO10 = SOUND 
L, 1 6 » NEXTL = SOUND 1 2, 90 = SOUND 1 3,9 
1138 FORM=1 T031 00STEP5 = SOUND0 , N : SOUNDS , M 
/ 2 . ■■ SOUNDS, M,"4 : NEXTM 
1 1 *0 S0UND7, £55 
1158 M£=M2-1 = IFM£=8G0T01 1 88 
1 1 60 8£=0 
1 1 70 G0T0428 
1180 IFR£>P£G0T01 £00 
1 1 98 R£=P£ 

1£00 F ORL = 0TO8 

1218 I FPEEK < 3 1 108+L*10)+PEEK<31189+L*10> 
*256<P2G0T01 £40 
1 ££0 NEXTL 
1230 GOTO380 

124 0 SOUND?, 7 = F0RM = 8T01 0 = SOUN DM, 1 6 = NEXTM 
1250 SOUNDS, 0 = SOUND 1 £, 1 00 = SOUND 1 3, 9 
1260 CLS 

1270 FORM = 0TO31 « COLOURRND CI 6 ) « PR I NTS2 1 0 , 
"NEUER REKORD“ i 

1280 PRINTS250, " " ; 

1298 SOUNDS , M 
1300 NEXTM 

1310 FORM=31190TOt31100+L*10>STEP-10=FOR 
N=0TO9 

1320 POKEM+N, PEEK<M+N-1 0) 

1330 NEXTN NEXTM 

13*10 PRINT@568," Geben Sie Ihren Namen ei 
n : “ 

t 350 PR INT @697, - " i « PR I NT @69 7 , CHR 

$ < 1 4> j 

1360 P=31 1 08+L*1 0 : G0SUB251 8 
1370 P0KE31 1 08+L*1 0 , P28ND255 
1388 P0KE31 1 89+L*1 8, P2/256 
1390 GQT0388 

1400 F0RL=31 000TO31 000+E 

1418 V=PEEK(L>=W=PEEK<L+10)Q=PEEK<L+40) 

1428 IFV=255GQTQ1 660 

1430 IFQ>145IFQ<168LETZ2=1 : RETURN 

1448 IFI 1 < 1 IFQ = 238LETQ = 32ELSEIFQ = £45LETQ 

=32ELSEIFQ=230LETQ=32 

1458 V1=PEEK<L+20)-£:W1=PEEK<L+30>-2 
1460 POKE1 7408+V+W*40, Q 
1478 POKEV + (J*40-4096, 1 5 
1480 IFQ>128IFQ<144P0KEV+W*4 8-4896, 6 
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149 0 IFV + V1 = 0POKEL + 20_. 3ELSE IFV + V1 = 3 9 P 0 K E 
L + £ 0 j 1 

1500 A = P E E K < 1 7448+V+W*40> - B = P E E K ( 1 7368+V 
+ U * 4 0 > 

1510 IFW=1 PQKEL+30, 3ELSEIFW=21 POKEL+30, 1 
1528 IFA=135LETQ=1£9=GOTO1740ELSEIFA=143 
LETQ=1 37 = GOTO 1 740 

1530 I F W 1 = 1 I F A = 1 28LETV1 =0 : GOTOI 550ELSEIF 
A < >202IFA>1 45LETV1 =0 = GOTOI 550 
1510 IFW1=1LETW1=0: IFQ=128POKEL+20,RNO<2 
) OR 1 

1558 IFU1=-1IFB=1£8LETV1=0= GOTOI 578ELSEI 
FB>1 45LET V 1 =0 : GOTOI 570 

1568 IFW1 = - 1 LETW1 =0 : IFQ=1£8POKEL+£0,RND< 

2 > OR 1 

1 570 V=V+V1 : U=W+W1 

1580 P0KEL+48, PEEKC1 7408+V+U*40) 

1590 PO KE1 7408+7+0*40,1 43+RND<£> 

1680 POKEV+U*48-4096, 5 
1610 PÖKEL » V : POKEL+1 0j U 

1620 IFPEEK<L+40)< 1 44G0T01 660ELSEIFPEEKC 

L + 40> >1 4560T01 660 

1630 F0RM=3 1 800TO31 000+E 

1 640 IFL< >MIFPEEK<M)=VIFPEEKCM+1 0>=WPQKE 
L+40j PEEK ( M+40 ) 

1650 NEXTN 
1660 NEXTL 

1670 T£=T2+ 1 : IFT2=30752LETT2=30720 : IFO£< 
6LET02=02+1ELSEÜ2=3 

1680 A=PEEK(T2>=PLAY<3,O2,A,10> «IFAO08O 

UND8, 8 SOUND 1 8, 1 6 « S0UHD1 3, 9 

1698 I F I = 1 GOTOI 840 

1700 I F RND ( 1 8 0 0 X R 1 GOTOI 728 

1718 RETURN 

1728 11=50 1=1 

1730 RETURN 

1 740 IFRND<180X<R1*10)GOTO1960 
1750 S 0 U N D 9 , 15 : SÜUN03>2 

1760 P=V+WT48+1 7448 : Ql =6 F0RM=PT01 8288ST 
E P 4 0 

1779 POKEM,QPOKEM-21504,G1 =Q=PEEK<N+40> 

= Ql =PEEK<M-21 464 > = POKEM+40 , 1 44 POKEM-2 1 46 
4 , 5 

1788 S0UND2. <M^3)AND255 

1798 F0RN=1 TO300 : NEXTN 

1800 NEXTN : POKEMj Q : POKEN — 21 5 0 4, Ql 

1810 PÖKEL, 255 = T=T+ 1 

1820 S0UND9 , 0 

1830 P2=P2+E*5 = GOTOI 660 

1840 IFI 1 >0LETI 1 =1 1 -1 

1 350 I F I 1 = 0 PRINT0699, " - i = I =0 « RETURN 

1860 I F < I 1 AND 1 > = 1 PRINTÖ699, " • ■ j ELSE P 
RINTÖ699, "a#" i 
1878 RETURN 

1880 1=0 = PRINT6698, " 1 000" j 

1890 B$ = CHR$c:i> + CHR$<3>+CHR$(5> + CHR$<4:> + 
CHR$(6>+CHR$(5>+CHR$(5)+CHR$<1 )+CHR$<1 ) 
1900 FORL=0TO8 = C=PEEK C 30752+L > 

1910 PL A Y < 3 , 4, C, 1 4> 

1920 F0RM=1 TO900 ; NEXTN , L 
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1 930 PRINT0698, “ ° ; 

1940 H = 32 : H1=32 : H£ = 3£ = P2 = P2+ 1 00 : 1=0= 11=0 
= A = 8 

1950 RETURN 

I960 P0KE1 7448+V+W*40, 129+CVAND1 >*8 
1970 F0RM = 7T01 STEP— 1 = PL A Y C 2 , 4 , M , 1 5 > ■■ FORN 
= 1 TO300 : NEXTN • N E X T M : SOUNDS, 0 
1980 6 0 T 0 1 5 3 0 

1 990 IFH2=1 £8IFPEEK<P-40>< >1 £8LETH£ = 3£ 
£008 POKEP-X 1 , H P0KEP + 4 6-X1 , Hl * POKEP+40- 
XI +X2* H£ 

£010 X=X+X1 = Y = Y + 4 = X £ = X 1 = P = 1 7408+X+V*40 
2020 H=PEEK(P> : H1=PEEK<P+40) H2=PEEK<P+4 
0 + X 1 > 

£030 IFX£=- 1 POKEPj 153POKEP+40, 1 59 = POKEP 
+39,148 ELSE POKEP , 1 5£ • POKEP + 40 , 1 5 1 = POKEP 
+ 41,146 = X£= 1 

2040 POKEP-21 504 , 7 : POKEP-21 464, 8 : I FH£=32 
POKEP-21 464+X2, 0 

2 05 0 SOUNDS, 1 5 = SOUND 1 0, t 5 : SOUND 3, 2 = SOUND 
5, 2 = FORM = 0TO£55STEP4 : S0UND2, M : FORN=1 TOI 0 : 
NEXTN : S0UND4, 255 — M : FORN=1 TO 1 0 ; NEXTN, N = SOU 
ND9 , 0 » SOUND 1 0 , 0 

£060 6OTO650 

2870 print" ■ ■ ■■■■ ■ ■ wtmm 

m u ■" 

2088 PRINT" ■ ■ ■ ■ ■ ■ 


£090 PRINT" 


2100 PRINT" ■ ■ ■ ■ ■ ■ 


2110 PRINT" 


2120 FORL=1 7408TO1 7607 = IFPEEK<L >=£02 POK 
EL, 1 60 
2130 NEXTL 

£140 FORX = 0TO3 8STEP£ = PRINT@£80 + X,CHR$<1 2 
9) ; CHRtC 1 37) ; = NEXTX 
2150 COLOUR 1 6 
2160 PRINTPRINT 

£170 PRINT" Geschrieben von Duergen Buc 
hmuel 1er " 

£180 PRINT" fuer Trommeschlaeger C o m p u t 
er Studio" 

2190 PRINT = PRINT" Copyright < C > 

1 983" 

2200 PRINTPRINT 

2210 PRINT" REKORDPUNKTZAHL ="; R2; "0" 

2220 PRINT" " 

2230 PRINT" LETZTER S P I EL E R * " ; P 2 ; " 0 " 

2240 PRINT" ■" 

2250 PRINT = PRINT-Druecken Sie <S> um das 

Spiel zu starten"; 

2260 PRINT" oder <R) fuer die Rekordl 

i s t e . * ; 



£270 FORL=0TO7 

££88 POKEL-2816,PEEK<<<L + C>AND7)-3064:> 
££90 NEXTL 
£300 C=C+1 

£310 F0RM=1 TO508 = NEXTM 
£ 3 £ 0 C$=INKEY$ 

£330 IFC$=" S" RETURN 
£340 IFCt< > ,, R ,, GOTO££70 

£350 CLS ^ S0UND7, 7 = SOUNDS, 1 6 = S0UND9, 1 6 = SO 
UND 1 0, 16 : 30UND6>31 SOUND1£,50SOUND13,9 
£360 P0KE17151 , 140 P0KE17147, 19 : P0KE1714 
4,17 = LGR 

£378 PRINTS12, " REKORDLISTE " : PRINT052, " 

£380 FORL=0TO8 = COLOURL+ 1 
£390 PRINT<s1£8 + L*40,CHR$C49 + L)i 11 . “ ; 

£409 FORM=31100+L*10TO31107+L*10 
£410 IFPEEK<MX3£P0KEM, 32 
£4£0 PRINTCHR* <PEEK<M> ) ; 

£430 NEXTM 
2440 PRINT" " i 

£450 PRINTPEEK<31 1 08+L* 1 0 > +FEEK < 3 1 1 09+L* 
1 0)*£56, " 0" 

£460 NEXTL 

£479 PRINT8530, "Druecker. Sie < S > . “ ; 

£480 IFFEEK<4cHF804>< >8GOTO£480 
2490 POKE17151 ,70POKE17147,38=POKE17144 
, 32 = LGR 
2508 RETURN 

2518 PI = P : FORM = 0TO7 : P 0 K E P + M , 3£ : NEXTM 

£5£0 Y$=INKEY$ : IFY$=" “ GOTO2520 

£530 A = ASC<Y#> = IFA=13PRINTCHR$<I15>i = RETU 

RN 

£540 IFA=8IFP>P1 POKEP , 32 : P=P-1 PRIMTCHR* 
<8);"."iCHRt<24)i : GOTO2520 
2550 IFA<3£GOTO25£0ELSEIFA>1£7GOTO£5£0 
£560 IFP<P 1 +8P0KEP , A : P = P+ 1 PRINTYfi 
£570 GOTO2520 

2580 F0RL=1 7408TO1 8431 « PÖKEL , 32 = NEXTL 
£598 POKE&H40£0, 0 : POKE&H4021 , 68 
£600 RETURN 
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Die Zeichen von HEKTIK 
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ZeileCn) 
10. . .320 


330 

340 

350 


Erläuterung des Programmes 
Funkt ion/Bedeutung 

DATA-Zeilen für die definierbaren Zeichen. 

Der Colour-Compi ler legt DATAs als Doppelbytes 
ab Adresse 4804H C = 18436 dez . ) ab. 

Leseschleife für definierbare Zeichen. Kopiert 
256 Bytes von 4804H nach F400H. 

CHAR 2. also sind die Zeichen 128... 191 selbst- 
definierbar und 192... 255 vorgegeben. 

DATA-Zeilen für die HEKTIK-Melodie. 


Melodie in Buffer nach 30720 kopieren (Adresse 
von A$ beim Colour-Compiler) 


Cursor umdef inieren. Sechste und siebte Zeile 
sind gesetzt und nicht -bl inkend . 


380 

390 


Bildschirm und Farbspeicher löschen. 


E = Anzahl der Verfolger -ls M2 = Anzahl der 
Säger s RI = Runde 


Unterprogramm für Ausgabe des Titelbildes 
aufrufen und auf "S" warten. 


410 

420 


B2 = Bonus $ P2 - Punkte ; Ql & Ql = Zähler 


CLS mit POKEs aufrufen. Y- und X-Schleife 
für Zeichnen des Bodens eröffnen. 


430 

440 

450 

460 

470 

480 


Boden besteht abwechselnd aus den Zeichen 129 
und 137. 

Farbe POKEn. 6 = COLOUR 5 * orange. 

Nächster Ziegel. Ebene. 

Unterste Zeile wird mit 202 belegt, damit hier 
das Hacken unmöglich ist. 

Schleife für Anfangspositionen der Leitern. 

A und B sind die X-Positionen der jeweils zwei 
Leitern in einer Etage. 




ZeileCn) 


Funkt ion/Bedeutung 


490 Zweite V-Schleife für Länge der Leitern. 

500 Sprosse und Farbe (3 ■ weiß) der ersten Leiter 

in Bildschirm bzw. Farbspeicher poken. 

510 Ebenso mit der zweiten Leiter verfahren. 

520 Nächste Sprosse. Etage 

530 mit COLOUR 11 in der letzten Zeile anzeigen. 

540 Anzahl der restlichen Jäger rechts unten anzeigen 

550 Wenn T = 0 (d.h. Alle Verfolger sind abgestürzt) 

dann Bonus zur Punktzahl addieren. 

560 Soundregister vorbelegen. 

570 T = Zahl der abgestürzten Verfolger : T2 = Anfang 

der Melodie -1 : 02 * Oktave ; B2 = Bonus 

580 Schleife für Vorbelegung der Positionen und 

Richtungen der Verfolger eröffnen. 

590 X- und Y-Position poken, 

600 X-Richtung poken Centspr. -1). 

610 Y-Richtung poken Centspr. 0). 

620 Zeichen unter Verfolger mit 32 C= Space) 

vorbelegen. Dieses Zeichen wird später anstelle 
des jeweiligen Verfolgers ausgegeben. Deshalb 
werden Leitern und Ziegel nicht zerstört. 

630 Nächster Verfolger. 

640 X * X-Position des Jägers : Y = Y-Position des 

Jägers : H, Hl, H2 = Zeichen unter dem dem Jäger 
mit 32 (= Space) vorbelegen. : X2 = Richtung des 
Jägers für die Berechnung der Zeichen vorbelegen, 
s Y2 * Y-Richtung vorbelegen. 

650 Tastaturabfrage: Bei A = 6 ist C BREAK) & 

CCLEAR) gedrückt. 

660 X- und Y-Richtung gleich null setzen. 
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Zei leCn) 


Funkt ion/Bedeutung 


670 bei fl = 32 ist Bit 5 gesetzt. Linkspfeil. 

680 bei A = 64 ist Bit 6 gesetzt. Rechtspfeil. 

690 bei fl = 8 ist Bit 3 gesetzt. Pfeil nach oben. 

700 bei fl = 16 ist Bit 4 gesetzt. Pfeil nach unten. 

710 P = Bildschirmadresse des Jägers. 

720 II = Zähler für die blinkenden Bonus-Kugeln. 

Wenn II = 0. werden die beiden folgenden Zeilen 
übersprungen. 

730 Hl = Zeichen das vorher unter den Beinen des 

Jägers stand. 

740 H2 = Zeichen unter der Hacke. 

750 C = Zähler s Ci ist abwechselnd 0 oder 1. 

760 Wenn das Zeichen unter dem Kopf des Jägers 

gleich einem Verfolger ist, dann EXITUS. 

770 Ebenso bei dem Zeichen unter der Hacke. 

780 Wenn der Bonus noch größer Null ist, dann dekre- 

ment ieren. 

790 Wenn fl AND 127 = 0, bedeutet dies, keine Pfeil- 

taste gedrückt wurde. Also wird bei einer Bewe- 
gung der letzte Jager im Bildschirm gelöscht. 

Der Farbspeicher wird auf 15 C = weiß} gesetzt. 

800 Wenn X-Position plus Richtung auf den rechten 

oder linken Rand kommen, dann X-Richtung Null 
setzen. 

810... 820 Übernahme der Richtungen in Variablen zur Berech- 

nung der Zeichen für den Jäger. 

830 PI = Position + Y-Richtung 

P * Position + X-Richtung 

840 Z * Zeichen unter den 'Füßen' des Jägers. 

Wenn alle Vergleiche nicht zutreffen, steht der 
Jäger nicht auf etwas, auf dem er laufen kann. 
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Zeile(N) 

850 

860 


870 


880 

890 

900 

910 


950 

960 

970 

980 

990 

1000 

1010 


Funkt ion/Bedeutung 

Wenn Z=135 oder Z=143, Absturz des Jägers, 

Wenn der Jäger nicht auf einer Leiter steht, dann 
wird die Y-Richtung gleich Null gesetzt. 

X.Y und P neu berechnen, wenn A AND 127 <> 0, 
dann neue Zeichen unter dem Jäger in H, Hl und 
H2 abspeichern. 

Wenn II < 1, dann blinken die Bonuskugeln nicht. 

Wenn Zeichen unter der Hacke ein Zeichen der 
Bonuskugel ist. dann Unterprogramm für Bonus- 
addition ab Zeile 1880 aufrufen. 

Farben für Jäger POKEn. CP-21504 ergibt Farb- 
speicheradresse . z.B. 17408-21504=-4096) 

Wenn seitliche Bewegung und das Zeichen unter 
der Hacke ein Leerzeichen ist . dann Farbspeicher 
auf 0 C=grauD setzen. 

In Abhängigkeit von den Richtungen werden die 
Zeichen des Jägers berechnet und in den Bild- 
schirmspeicher gePOKEt. 

A AND 128 = 128 bedeutet . daß die Leertaste 
gedrückt wurde CHacken). Sonst nach Zeile 1070. 

Wenn X-Richtung Null ist. kann nicht gehackt 
werden . 

Ton beim Hacken. 

Hacke auf und ab bewegen CMit CI). 

Wenn C1=0, dann ist die Hacke oben, und das 
Loch wird nicht vergrößert. 

P wird nun die Bildschirmposition unter der Hacke. 
Z speichert das dortige Zeichen. 

SHIFT gedrückt ? Wenn ja, dann 1050. 


1020... 1040 In Abhängigkeit vom Ziegel typ das Loch vergrößern. 
1050.1060 In Abhängigkeit vom Ziegeltyp das Loch schließen. 
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Zeile(n) Funktion/Bedeutung 

1070 In Abhängigkeit von der Spielrunde, wird unter- 

schiedlich oft die Routine zur Bewegung der 
Verfolger aufgerufen. Ansonsten wird eine 
Warteschiei fe ausgefuhrt. 

1080 Wenn Z2=l ist, wurde man von einem Verfolger 

erwischt (siehe Unterprogramm ab 1400) . 

1090 Ausgabe von "** HEKTIK *x", Punktzahl und Bonus 

in zufälligen Farben. 

1100 Wenn alle Verfolger abgesturzt sind, wird 

Absturzzahler T gleich Null gesetzt, die Runden- 
zahl RI um 1 erhöht und. wenn E<5 (E=Anzahl der 
Verfolger-1) wird E ebenfalls um 1 erhöht. 

Dann in die nächste Runde (Zeile 420). 

1110 Zur Hauptschleife (Tastaturabfrage...). 

1120.. . 1140 Ton bei Verlust eines Jägers. 

1150 M2 (Jagerzahl) erniedrigen, wenn M2=0 dann 

Spielende (Zeile 1180 folgende). 

1160,1170 Bonus=0, zur Hauptschleife. 

1180.. . 1230 Erreichte Punktzahl wird mit der Rekordliste 

verglichen. Ist man nicht unter den 
ersten Neun, Sprung zum Titel. 

1240.. . 1390 Eingabe des Namens und Einsortieren in die 

Rekordl iste. 

1400 Schleife für Verfolgerbewegung eröffnen. 

1410 X.Y und Zeichen unter dem jeweiligen Verfolger 

Q aus dem Speicher in Variablen holen. 

1420 Bei V=255 ist der Verfolger schon abgesturzt. 

1430 Wenn Q ein Teil des 3agers ist. dann Flag Z2 

setzen und Rucksprung. 

1440 Wenn Q ein Teil der Bonuskugel ist, aber der 

Bonus nicht blinkt, wird Q=32 (Leerzeichen) 
gesetzt . 


1450 X- u. 


in Variablen speichern. 


Y-Richtung 
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Funkt i on/Bedeut ung 


ZeileCn) 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 


Das letzte Zeichen unter dem jeweiligen Verfolger 
C = Q) wird wieder in den Bildschirmspeicher 
gePOKEt . 

Farbspeicher weiß setzen. 

Wenn Q ungleich Leiter C=128) und ungleich Leer- 
zeichen (=32), dann Farbspeicher auf orange C=6). 

Wenn X-Position plus X-Richtung gleich linker 
oder rechter Rand, dann X-Richtung umdrehen. 

ft wird Wert des Zeichens unterhalb und B oberhalb 
der Bildschirmposition des Verfolgers. 

Wenn Y-Position = 1 Coberste Etage) oder 
Y-Position = 21 (unterste Etage), dann Y-Richtung 
entsprechend umdrehen. 

Wenn ein Loch im Boden unter dem Verfolger ist 
Cbei ft= 1 35 oder ft=143) , dann stürzt er ab. 

Wenn Verfolger auf Leiter, dann X-Richtung auf 
Null setzen oder wenn er direkt über dem Boden 
und außerdem auf dem Weg nach unten ist. 

Sonst X-Richtung mit 1 oder 3 belegen. 

C RND (2) 0R 1 ergibt immer 1 oder 3 ). 

Wenn Verfolger auf dem Weg nach oben und auf 
einer Leiter, dann X-Richtung gleich Null setzen. 

Sonst wie bei Zeile 1540. 


1570 

1580 

1590 

1600 

1610 


X- und Y-Richtung zu den Positionen addieren. 

Neues Q aus dem Bildschirmspeicher in die Tabelle 
speichern. 

Auf die Bildschirmposition einen der beiden Ver- 
folgertypen POKEn. 

Farbspeicher mit grün setzen C ■ 5 ). 

Neue X- und Y-Position in der Positionstabelle 
abspeichern. 
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Zeile(n) 


Funktion/Bedeutung 


1620 Wenn der Verfolger nicht über seinesgleichen 

Steht, dann Sprung zu 1660 

1630.. . 1650 Sonst Tabelle nach Verfolger mit gleicher X- und 

Y-Position durchsuchen, und wenn gefunden, dann 
dessen Wert für Q ubernehemen. 

1660 Nächster Verfolger. 

1670 Zahler für Noten um eins erhöhen. Wenn Ende der 

Melodie erreicht ist. dann Zahler zurucksetzen 
und Zahler für Oktave um eins erhöhen. Wenn 
Oktave = 7 dann wieder bei 3 beginnen. 

1680 ft = Ton aus Tabelle. Mit PLftY auf 3. Tonkanal 

ausgeben. Wenn ft<>0 dann Hullkurve auf Impuls 
programmieren . 

1690 Wenn Bonuskugel sich schon bewegt (Flag gesetzt), 

dann zu Zeile 1840 

1700.. . 1730 Sonst mit einer mit der Rundenzahl zunehmender 

Wahrscheinlichkeit das Flag und den Zahler für 
den Bonusblinker belegen. 


1740 ftbsturz eines Verfolgers. Mit steigender ftnzahl 

der Runden immer öfter das Loch schließen. 

1750... 1830 ftbsturz eines Verfolgers. Dabei werden die 

Zeichen und die Farbe unter dem absturzenden 
Verfolger immer in Q und Ql zwischengespeichert. 
Anschließend wird zur Punktzahl ftnzahl der Feinde 
mal 5 addiert . 

1840 Wenn Zahler für Bonuskugel CI1) noch großer Null 

ist, dann wird er um eins erniedrigt. 

1850 Wenn II anschließend gleich Null ist, dann wird 

der Blinker gelöscht und das Flag zuruckgesetzt. 

1860 Sonst wird abwechselnd CftND 1) eine der zwei ver- 

schiedenen Kugel typen ausgegeben. 

1870 Zuruck zur Hauptschleife. 

1880 Bonuskugel wurde berührt. Dann wird das Flag zu- 

ruckgesetzt und statt der Kugel "1000" angezeigt. 



1890 

1900 

1910 

1920 

1930 

1940 


1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 


Funkt ion/Bemerkung 

Die Melodie bei einem Bonus wird mit Hilfe von 
CHR$CX) in B$ zwischengespeichert. 

Schleife für neun Töne. C wird aktueller Ton. 

Auf Kanal 3 mit Lautstärke 14 ausgeben. 

Warteschleife und nächster Ton. 

Die ”1000" wieder löschen 

Sämtliche Zwischenspeicher für den 'Untergrund' 
des Jägers durch 32 ( Leerzeichen) ersetzen. 100 
zu den Punkten addieren Cwird als 1000 angezeigt) 
und Zähler und Flag zurücksetzen. 

Zurück zur Hauptschleife. 

Das Loch, über dem der Verfolger, steht wieder 
schl ießen. 

Ton ausgeben. 

Zurück, kein Absturz . 

Der Jäger fällt eine Etage tiefer. Wenn die Hacke 
vorher in einer Leiter war. dann das Zeichen 
durch ein Leerzeichen ersetzen. 

Jäger auf alter Position mit den zwischengespei - 
cherten Werten für den Untergrund löschen. 

Neue Position berechnen. 

Neue Hintergrundwerte aus dem Bildschirmspeicher 
lesen und in H. Hl und H2 ablegen. 

Aus der letzten X-Richtung die neuen Zeichen für 
den Jäger berechnen und in den Bi Idschi rmspeicher 
POKEn. 

Farben für den Jäger in den Farbspeicher POKEn. 
Ton erzeugen und wieder abschalten. 

Zurück zur Hauptschleife CTastaturabf rage) . 
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Zei teCnJ 


Funktion/Bemerkung 


2070.. . 2110 Ausgabe des Titels. 

2120.2130 CHR$C202) Grafik-Zeichen durch CHR$C160J er- 

setzen. Dieser wird dann anschließend umdefi- 
niert. sodaß die flauer durch die Schrift zu 
laufen scheint. 

2140 Darunter eine Zeile Boden ausgeben. 

2150.. . 2260 Restliche Texte ausgeben C In COLOUR 16 = weiß} . 

2270.. . 2290 Diese Routine kopiert in CHR$C160I die Mauer um 

jeweils ein Byte weitergeschoben. 

2300 Zähler erhöhen. 

2310 Warteschleife. 

2320. . .2340 Tastaturabf rage auf "S" oder "R”. 

2350 Bei "R" wird die Rekordtabelle ausgegenben. 

Explosionsgeräusch in PSG programmieren. 

2360 CRTC auf doppelte Zeichenhöhe umprogrammieren. 


2370. . .2470 


Rekordliste ausdrucken. Neun Plätze in ver- 
schiedenen Farben ausgeben. Hinter der Punktzahl 
eine zusätzliche Null anzeigen. 


2480 Ist “S” gedrückt ? Nein, dann wieder abf ragen. 

2490 Zeichenhöhe wieder auf normal programmieren. 

2500 Zurück vom Unterprogramm. 

2510 Unterprogramm für Eingabe eines Namens mit 8 

Buchstaben. Oie RAM-Adresse des Buffers steht 
in der Variablen P. Zuerst den Buffer löschen. 


2520.. . 2570 Tastendrücke abspeichern bis RETURN gedrückt 

wird. Mehr als 8 Zeichen werden nicht angenommen 
und man kann mit Linkspfeil nicht vor die erste 
Bufferadresse PI zurückgehen. 

2580.. . 2600 Schneller CLS, der Leerzeichen in den Bildschirm- 

speicher POKEt. Die Cursorpos i t ion in 4020H und 
4021H wird auf linke obere Ecke gePOHEt. 
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Bubble Sort 


"Bubble Sort" ist ebenfalls ein Spiel Programm . daß Sie mit 
dem "Colour Compiler" compilieren müssen. 

Sie können das Programm aber auch mal im normalen Basic laufen 
lassen, um die immense Geschwindigkei tserhöhung. die der 
Compiler bringt, zu sehen. Auf eine Erklärung des Programmes 
sei verzichtet - die Spielregeln finden Sie im Programm selbst. 

Programml isting: 


10 CLS : COLOURi 
20 PRINT814, "Bubble Sort" 

30 PRINT: PRINT"Bei diesem Spiel geht es darum, die" 

40 PR INT "ei ne Sorte Kugeln C " ; s C0L0UR3 : PRINTCHRS C 230) : : COLOURI : PRINT"! 
auf die eine und" 

50 PRINT"die andere Sorte C COLOUR2 : PRINTCHRSC 235) :: COLOURI : PRINT") 
auf die andere" 

60 PRINT"Seite des Bildschirms zu bringen. Den" 

70 PRINT"blauen Teil des Mittelstreifens koennen" 

80 PRINT"Sie mit dem Hoch- und Runterpfeil be-" 

30 PRINT"wegen und mit < RE TURN > oef fnen PRINT : PRINT : PRINT"Bitte drue 
cken Sie <RETURN>" 

100 A= PEEK C 8tH F840 ) AND 1 
110 IFA=0THEN100 

1 20 S0UND7 . 248 : S0UND8 . 1 6 : SOUNDS . 0 : SOUND 10.0: SOUND 1.0: SOUNDO .100: SOUND 1 
2.4 

130 COLOUR4 : CLS 

140 ********* UMRANDUNG ZEICHNEN 
150 F0RX=0T039 

160 P0KEX-4096 , 3 : POKE 17408+X , 202 
170 POKEX-3216 , 3 : POKE 18288+X , 202 
180 NEXTX 

190 FORY=40T0840STEP40 
200 P0KEY-4096 , 3 : POKE 1 7408+Y , 202 
210 POKE Y- 4057 , 3 : POKE 17447+Y , 202 
220 P0KEY-4076 , 6 : POKE 17428+Y , 202 
230 NEXTY 

240 ********* KUGELN ZUFAELLIG SETZEN 
250 FORL =0T09 
260 R*2 

270 X=RNDC 38 ) : Y = RNDC 21 ) : A= C LAND 1 ) *3+R : XI =RNDC 2 ) 0R1 : Y1 =RND( 2) 0R1 
280 IFX=20GOT0270 

290 POKE 3 1 000+L . X : P0KE3 1010+L.Y: P0KE3 1 020+L , A s P0KE3 1 030+L . X 1 : P0KE3 1 040 
+L.Y1 

300 G0SUB760 
310 NEXTL 
320 Z=0 

330 PI ”40 : P=40: Dl “0 

340 Dl ”D1 + 1 : PR I NT 8 920 . Dl : " Zeiteinheiten": : A-PEEKC &HF840) 

350 IFC AAN08) =8IFP>40LETP*P-40 
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360 I FC RAND 16} = 161 FP<800LETP=P+40 

370 F0RY*40T0840STEP40 : POKE Y- 4076» 6: POKE 17428+Y, 202 

380 I FY=PP0KEY-4076 , 8ELSE I FY=P+40P0HEY-4076 . 8 

390 I F C RAND 1 ) = 1 IFY=PPOKE 17428+Y , 32ELSE IFY= P+40P0KE 1 7428+Y , 32 

400 NEXTY 

410 G0SUB430 

420 GOT0340 

430 C 1 *0 : C2=0 : FORL *0T09 

440 X=PEEKC31000+L} :V=PEEKC31010+L} 

450 A=PEEKC31020+L} 

460 Xl=PEEKC31030+L)-2:Yl=PEEKC31040+L}-2 

470 IFX<20IF(LAND1 ) =0LETC1=C1+1 

480 1 FX >201 FC LAND 1 } = 1LETC 1=C 1+1 

490 I FX<20 1 FC LAND 13= 1LETC2=C2+1 

500 I FX> 201 FC LAND1 ) =0LETC2=C2+i 

510 POKE 17408+X+Y*40,32 

520 B=PEEKC 17408+X+X1+Y*40} 

530 C = PEEK( 17408+X+C Y+Yl }*40) 

540 D=PEEKC 1 7408+X+X 1 + C Y+Yl } *40) 

550 S0UND1 , 1 : IFD< >32IFB=32LETY1 =0-Yl : S0UND13 , 9 : G0T0590 ELSE IFC = 32LETX 
1*0-X1 sS0UND13.9:G0T0590 
560 SOUND 1 , O 

570 I FB < >32LETX1 =0-Xl s SOUND 1 3 , 9 
580 IFC<>32LETY1=0-Y1 :S0UND13,9 
590 X=X+X1 :Y=Y+Y1 :G0SUB760 
600 P0KE3 1 000+L , X 
610 P0KE31010+L , Y 
620 P0KE3103O+L , Xl+2 
630 P0HE31040+L , Y 1 +2 
640 NEXTL 

650 I FZ=OI FC 1 = 1 0G0T0670ELSE I FC 2 ■= 1 0GOT0670 
660 RETURN 

670 RESTORE : POKE P+ 1 7428 . 202 : POKE P+ 1 7468 , 202 s Z= 1 5 FORQ = 1 T0255STE P6 : GOSUB 
430 

680 S0UND9 ,15: SOUND 10,15 

690 S0UND3 . 0 t S0UND2 , Q s S0UND5 , 0 : S0UND4 , 255-Q 

700 NEXTQ 

710 S0UND7 . 255 

720 CLS: PRINT"Sie haben es in" ;D1 s PRINT"Zei tei nhei t en geschafft." 

730 A^PEEKC &HF840) RND1 
740 IFA=0THEN730 
750 G0T010 

760 POKE &HF000+X+Y*40.A 
770 I FA=2THENR1 =230ELSER1 =235 
780 POKE fcH4400+X+Y*40,Rl 
790 RETURN 



Ti Igungsplan 


Das folgende Programm hilft Ihnen bei der Berechnung der Abzah- 
lung einer Ratenschuld. Dabei kann man wählen, ob die Schuld 
mit konstanter Annuität (Qesamtbel astung = Zinsen + Tilgung) 
oder mit konstanter Tilgung erfolgen soll. 

Programml ist ing: 


10 CLS 

20 C0L0UR3:PRINT"Ti Igungsplan einer Ratenschuld" 

30 PRINT 
40 CLEAR 

50 C0L0UR4 : INPUT”1 - Konstante Gesamtbel astung 
2 - Konstante Tilgung"sB 
60 0NBG0T070 , 220 

70 INPUT"Annui taet , Zins. Kapital eingeben 
" : A . P . K# 

80 PRINT 

90 C0L.0UR2 s PR I NT"Ze i t Zins Tilgung Rest sc hu Id" 

100 K 1 #=K# 

110 X*X+1 

120 ZI=INTCK#*P+.5)/100 

130 T=A-ZI 

140 IFT>=K»THENT*K» 

150 R#=K#-T 

16<> D$=" »4# ##»»#»#.»» »»»#»»».»# »»»»#»«.»»" 

170 PRINTUSINGDS ; X ; ZI ; T : R» 

180 IFT< =OTHENCQLOUR7 : PRINT"E ine Tilgung ist nicht moegl ich" : PRINT"Die 
Zinsen bet ragen" s ZI ; "DM und sind groesser " : PRINT"al s die Tilgung von" 
: T i "DM" ; G0T0490 

190 IFR»<=0THENPRINT”In":X: "Zeitperioden ist die Schuld von":PRINTKl»; 
"DM getilgt": G0T0490 
200 K»=R» 

210 G0T0110 
220 DIM ZC1000) 

230 A$=" #»# «»»##»».»» »»#»»».»» »»»»»#».»»" 

240 B$="K=»»#»#»# .»# N=»»# P=»»#.»»#" 

250 PRINT 

260 INPUT"Bitte Kapital. Zeit. Zinssatz eingeben 

";K,N.P 

270 Kl-K 
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280 PRINT 
290 PRINT 
300 PRINT 

310 PRINTUSINGBS ; K ;N : P 

320 C0L0UR2: PRINT"Zeit Zinsen Tilgung Rnnuitaet" 

330 PRINT 

340 T = I NT C 1 00#K/N+ .53/1 00 
350 FORI «1 TON- i 

360 IFC I=21iORC 1=41 )ORC I«6nTHENINPUT"Weiter''jC* 

370 Z=INTCH*P+.5J/100 

380 PRINTUSINQRS:I;ZsT5T+Z 

390 H*K-T 

400 Z(I)=Z 

410 NEXTI 

420 U= INTC K#P+ . 55/100 
430 ZCN) =U 

440 PRINTUSINGRS ;N;U;K}U+K 
450 FORI =1 TON 
460 Zl=Zl+ZCI) 

470 NEXTI 

480 PRINT”Gesamte Zahlungen = '’;Z1+K1 

490 PRINT : C0L0UR8 : INPUT"Rndere Berechnung C3/N)";CS 
500 IFLEFTSI CS , 1 ) = "3*'0RLEFTS(CS . 1 3 = " j "THEN10 
510 END 
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Gleichungen mit 3 Unbekannten 


Dieses Mathematikprogramm berechnet die 3 Unbekannten von 3 
Gleichungen der Form ax+by+cz*d. 

Programml ist ing: 


10 CLS : C0L0UR1 

20 PRINV'Dieses Programm berechnet aus drei "t PRINT’Gleichungen der Fo 
rm" 

30 PRINT"ax+by+cz=d Ca,b,c und d gegeben) die": PRINT"Unbekam\ten x.y u 
nd z*' 

40 PRINT 

50 C0L0UR2: INPUT”al , bl. cl und dl";fil ,B1 ,C1 ,D1 
60 C0L0UR3 : INPUT"a2 , b2. c2 und d2" ?R2 . B2 , C2 . D2 
70 C0L0UR7: INPUT"a3, b3 . c3 und d3": A3. B3, 03,03 
80 D=A1*B2*C3+B1*C2*A3+C1*A2*B3-A3*B2*C1-B3*C2#A1-C3*A2*B1 
90 DX=D1*B2*C3+B1*C2*D3+C1*D2*B3-D3*B2*C2-B3*C2*D1-C3*D2*B1 
100 DY=R1 *D2*C3+D1*C2*A3+C 1*A2*D3-A3*D2*C 1 -D3*C2*A1 -C3*A2*01 
110 DZ*A1 *B2*D3+B 1 *D2*A3+D 1 #A2*B3-A3*B2#D 1 -B3*D2*A 1 -D3*A2*B1 
120 PRINT: PRINT:C0L0UR4 

130 IFD=OTHENPRINT"Das System ist nicht l oesbar END 

140 PRINT"x *":DX/D 

150 PRINT"y ="}DY/D 

160 PRINT"z =*' ; DZ/D 

170 END 



Pascalsches Dreieck 




Für dieses Programm wird ein Drucker benötigt. Ausgedruckt wird 
das sogenannte Pascalsche Dreieck (siehe Ausdruck unten). 

Das Pascalsche Dreick wird in der Mathematik dazu benutzt, um 
die Binominalkoeff izienten von Gleichungen n-ten Grades abzu- 
lesen. 


I 


R a s c; ä l s c s s CD r- e i <s c; V«, 

n= 0 1 

n= 1 1 1 

n= 2 t 2 1 

n= 3 1 3 3 i 

n* 4 1 4 6 4 1 

n- 5 1 S 10 10 5 1 

n» 6 1 6 15 20 15 6 1 

n= 7 l 7 21 35 35 21 7 1 

n= 8 1 8 28 56 70 56 28 8 1 

n* 9 1 9 36 84 126 126 84 36 9 1 

n= 10 1 10 45 120 210 252 210 120 45 10 1-- 


Programml ist ings 

10 LPRINTCHRSC 15) 

20 CLEAR100 
30 DIMDRC 17,17) 

40 LPRINTCHRSC 14)" Pascalsches Dreieck" 

50 LPRINTCHRSC 15) 

60 DR( 0 ,0)»1 
70 CLS 

80 PR INT" Pascalsches Dreieck" 

90 TAB=32 

100 F0RANZAHL=1T01 1 
110 LPRINT"n="; 

120 LPRINTUSING"##" {ANZAHL- 1 S 
130 FORA-OTOTABB 
140 LPRINT"-"; 

150 NEXT 

160 FORS x 1 TOANZAHL 

170 DR C ANZAHL . S ) =DR C ANZAHL - 1 . S- 1 ) +DR( ANZAHL - 1 , S) 

180 I FS > 1 THENL PR I NTUS I NG "###### " ; DR C ANZAHL , S ) : x NE XTE LSEL PR I NTUS ING"#"{ 
DR(ANZAHL.S) { :NEXT 
190 F0RA= 1T0TAB 
200 LPRINT"-"; 

210 NEXT 
220 LPRINT 
230 TAB = TAB -3 
240 NEXT 

250 LPRINTSTRING$( 6 , 10) 
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Garbage Collect 


Das Programm l ist ing. das nun Tolgt, soll Ihnen einen Effekt 
verdeutlichen, dem Sie möglicherweise schon begegnet sind, ohne 
ihn sich erklären zu können. 

Gemeint ist, daß sich der Computer in längeren Basic-Programmen 
für einige Sekunden "aufhängt", d.h. daß das Programm stehen- 
bleibt und sogar mit der BREAH-Taste nichts mehr zu machen ist. 

Wenn Sie das folgende Programm eingeben und starten, wird das 
Problem sehr deutlich: Obwohl zwischen den einzelnen PRINTs nur 
ganz normale Variablenzuweisungen ausgeführt werden, dauert 
dies bis zu einigen Sekunden, Dies kann auch dann Probleme be- 
reiten, wenn Sie Daten vom Band einiesen, da durch eine derar- 
tige Verzögerung Daten verlorengehen können. 

Was ist nun der Grund für diese Verzögerung und wie kann man 
das Problem umgehen und seine Basicprogramme damit schneller 
machen' 5 

Der Grund ist Zeile 50: 

50 DIM At ÜE li/3 -500) 

In dieser Zeile wird ein großes Feld dimensioniert Cabhängig 
vom vorhandenen Speicher). Wird nun eine neue Variable ein- 
geführt, wird das ganze Feld verschoben, um für die Variable 
Platz im Speicher zu schaffen. Dies verursacht besagte Verzö- 
gerungen. Fügt man nun eine Zeile ein, die alle später ge- 
brauchten Variablen bereits vor dem DIM-Befehl schon einmal 
benutzt, werden diese schon vor dem Feld im Speicher angelegt, 
das dann später nicht mehr verschoben werden muß. Dies können 
Sie z.B. bei dem vorliegenden Programm einfach dadurch errei- 
chen. indem Sie die ganz unten gelistete Zeile 5 mit eingeben, 
die allen benutzten Variablen den Wert 0 zuweist. 

Das Programm läuft dann erheblich schnellen 

Programml ist ing: 

10 CLS :C0L0UR1 
20 DEFSTRA 
30 R»0 
40 Q=R 

50 DIhACMEM/3-500) 

60 AC 0) =" 

70 A( 1 )="< RETURN» " 

80 CLS 

90 PRINT"Druecken Sie < RE TURN > zur Demonst rat ion" : PRINT"des Garbage Co 
Uect" 

100 Q* 1-0 



110 C0L0URRNDC8) : PRINTS13.RCQ) ; 

120 F0RR= 1T020 

130 I F INKEYS < >CHR$ ( 1 3 3 THENNEXT ; GOTO 1 00 
140 CLS.-C0L0UR9 
150 PRINT'X = "; 

160 X = 2 
170 PRINTX 
180 X1=X 

180 PRINT'Zwei und zwei sind"; 

200 Y=X+X 
210 PRINTY 
220 Y1=Y 

230 C0L0UR1 t PRINT"Wussten "j 
240 A="" 

250 C0L0UR2; PRINT"Sie"; 

260 B=0 

270 C0L0UR3 : PRINT” , dass 
280 C=0 

290 C0L0UR4: PRINT"Ihr "j 
300 D=0 

310 C0L0UR5 ; PRINT"Computer *** 

320 E=0 

330 C0L0UR6 SPRINT "so " 

340 F=0 

350 C0L0UR7: PRINT"! ang"; 

360 G=0 

370 PRINT"s"j 

380 H = 0 

390 PRINT"a"s 

400 1=3 

410 3=K 

420 PRINT"m "s 

430 K=C 

440 L = K 

450 M=B 

460 C0L0UR8: PRINT"ist?" 

470 C0L0UR1 


5 B=0:C=B:D=BsE=B:F=BsG=B:H=B: I=B:3=BsK=B:L=BsM=B:Q=B:R=BsX=B$Xl=B:Y=B 
:Y1=B: A$="" 
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Ein Maschinensprache-Monitor in Basi. 


Da es im Laufe dieses Buches nötig sein wird, kleinere Pro- 
gramme in hexadezimal einzugeben oder sich Speicher inha l te an- 
zusehen. geben Sie bitte das hier aufgelistete Bas icprogramm 
ein und speichern Sie es auf Kassette: 


10 CLS 

20 CLEAR 1000 
30 PRINT"Command"; 

40 INPUT (=1$ 

50 IF AS«"" THEN 30 
60 GOSUB 1460 

70 IF BS="P" THEN PR=1: GOSUB 1460 ELSE PR=0 
80 CS="HAETGRW" 

90 FOR A=1 TO LEN(C$ I 

100 IF BS < >MIDS C CS . A, 1)THEN NEXT A: GOTO 30 

110 ON A GOTO 130. 390, 590. 740, 900, 1040, 1730 

120 GOTO 30 

130 GOSUB 1510 

140 X=Z 

150 Z=X 

160 GOSUB 1600 
170 PRINT ZS;" 

180 IF PR= 1 THEN LPRINT ZS;" 

190 C=0 

200 FOR Y=0 TO 7 
210 Z=PEEKC X+Y) 

220 C=C+Z 

230 GOSUB 1600 

240 PRINT RIGHTSCZS , 2):" 

250 IF PR= 1 THEN LPRINT RIGHTSCZS, 2);" "; 

260 NEXT Y 
270 PRINT" 

280 IF PR« 1 THEN LPRINT” "; 

290 Z=C 

300 GOSUB 1600 

310 PRINT RIGHTSCZS, 2) 

320 IF PR« 1 THEN LPRINT RIGHTSCZS, 2) 

330 X=X+8 

340 KB = PEEKC &HF840 ) 

350 IF KB=2 THEN 30 
360 IF KB < > 1 28 THEN 150 
370 KB = PEEKC &HF840) 

380 IF KBOl THEN 370 ELSE 150 
390 GOSUB 1510 
400 X=Z 
410 Z=X 

420 GOSUB 1600 
430 PRINT ZS:" ": 

440 IF PR=1 THEN LPRINT ZS;" 

450 FOR Y=0 TO 23 
460 Z*PEEKCX+Y) 

470 IF Z<32 THEN Z*ASCC"."I 
480 PRINT CHRSCZ) ; 

490 IF PR= 1 THEN LPRINT CHRSCZ): 

500 NEXT Y 
510 PRINT 


520 IF PR= 1 THEN L PR INT 
530 X=X+24 
540 KB=PEEKC&HF8403 
550 IF KB=2 THEN 30 
560 IF HB0 128 THEN 410 
570 KB=PEEKC&HF840) 

580 IF KB< > 1 THEN 570 ELSE 410 

590 GOSUB 1510 

600 X=Z 

610 Z=X 

620 GOSUB 1600 

630 PRINT 2$ 5" - "t 

640 Z=PEEKCX3 

650 GOSUB 1600 

660 PRINT RIGHTS C Z$ , 2);" - 

670 AI*"" 

680 INPUT AS 

690 IF AS*"" THEN 30 

700 GOSUB 1510 

710 POKE X, Z AND 255 

720 X=X+1 

730 GOTO 610 

740 GOSUB 1510 

750 X*Z 

760 Z=X 

770 GOSUB 1600 

780 PRINT ZI;" - 

790 Z=PEEKCX) 

800 GOSUB 1600 

810 PRINT RIGHT! C ZI , 2);" C"; 
820 IF Z<32 THEN Z=ASCC"."3 
830 PRINT CHRKZ);’’) - 
840 ft!*"" 

850 INPUT AI 

860 IF At="~ THEN 30 

870 POKE X, ASC C AI 3 

880 X=X+ 1 

890 GOTO 760 

900 GOSUB 1510 

910 Z 1 = I NT C Z/256 3 AND 255 

920 Z2=Z AND 255 

930 POKE 16526, Z2 

940 POKE 16527, ZI 

950 GOSUB 1460 

960 IF B!=" " THEN 950 

970 A!*BS+AI 

980 GOSUB 1510 

990 Z=Z AND 255 

1000 Z*USRC Z3 

1010 GOSUB 1600 

1020 PRINT RIGHTS ( ZI , 23 

1030 GOTO 30 

1040 GOSUB 1510 



1050 IF Z> = 0 THEN Xi=Z ELSE Xl=Z+65536 

1060 GOSUB 1460 

1070 IF BS = " " THEN 1060 

1080 AS=B$+A$ 

1090 GOSUB 1510 

1100 IF Z>=0 THEN X2=Z ELSE X2=Z+65536 
1110 PRINT" A B A+B A-B" 

1120 PRINT" 

1130 Z=X1 

1140 GOSUB 1600 

1150 PRINT ZS ;” "; 

1160 Z=X2 

1170 GOSUB 1600 

1180 PRINT 2$;" "; 

1190 Z=X1+X2 

1200 IF Z>65535 THEN Z=Z-65536 
1210 GOSUB 1600 
1220 PRINT ZS;" "; 

1230 Z=X1-X2 

1240 IF Z<0 THEN Z=Z+65536 
1250 GOSUB 1600 
1260 PRINT Z$ 

1270 Z=X1 

1280 GOSUB 1420 

1290 PRINT ZS;" "; 

1300 Z=X2 

1310 GOSUB 1420 

1320 PRINT ZS;" "; 

1330 Z=X1+X2 

1340 IF Z> 65535 THEN Z*Z-65536 
1350 GOSUB 1420 
1360 PRINT ZS;" "; 

1370 Z=X1-X2 

1380 IF Z<0 THEN Z=Z+65536 
1390 GOSUB 1420 
1400 PRINT ZS 
1410 GOTO 30 
1420 ZS=STR$ ( Z) 

1430 Z$=RIGHT$ ( ZS . LENCZSJ-1J 

1440 IF LENCZSX5 THEN ZS=STRINGS C5-LENI ZS ) , 32I+ZS 
1450 RETURN 
1460 B$="" 

1470 IF LENC AS ) =0 THEN RETURN 
1480 BS*LEFT${ AS . 1) 

1490 AS^RIGHTS C AS , LENCAS1-1) 

1500 RETURN 

1510 Z=0 

1520 GOSUB 1460 

1530 IF B$ < "0" OR B$ > "F" THEN 1580 
1540 IF BS > "9" AND BS<"A" THEN 1580 

1550 IF BS < = "9” THEN Zl=ASC(B$)-48 ELSE ZI =ASC(BS) -55 
1560 Z=Z*16+Z1 
1570 GOTO 1520 


48 


1580 IF Z> 32767 THEN Z=Z-65536 
1590 RETURN 

1600 IF Z> 32767 THEN Z=Z-65536 
1610 Z 1 = INT C Z/256 ) AND 255 
1620 Z2=Z FIND 255 
1630 Z$ = ~" 

1640 Z3-INTCZ1/16) 

1650 GOSUB 1710 
1660 Z3=Z1 AND 15 
1670 GOSUB 1710 
1680 Z3=INTCZ2/165 
1690 GOSUB 1710 
1700 Z3=Z2 AND 15 

1710 IF Z3< 10 THEN Z*=Z*+CHR*(Z3+48D ELSE Z*«Z$+CHR» C Z3+55) 
1720 RETURN 
1730 RE STORE 
1740 WR*="" 

1750 FOR X= 1 TO 127 

1760 READ A 

1770 WR$=WR$+CHR» CA) 

1780 NEXT 

1790 X=VARPTRCWR$3 
1800 X=PEEKCX+n+256*PEEKCX+2D 
1810 IF X> 32767 THEN X=X-65536 
1820 R=X+95 

1830 R 1 = INTC R/256 J AND 255 

1840 R2=R AND 255 

1850 POKE X+66. R2 

1860 POKE X+-67 , RI 

1870 POKE X+75. R2 

1880 POKE X+76 , RI 

1890 GOSUB 2140 

1900 GOSUB 2210 

1910 GOSUB 2140 

1920 GOSUB 2210 

1930 GOSUB 2140 

1940 PRINT"Fi lename"; 

1950 INPUT PN» 

1960 FOR X1=X TO X+5 
1970 POKE XI. 32 
1980 NEXT 

1990 FOR Xl=l TO LENCPNS1 

2000 POKE X-l+Xl. ASC(MID»(PNS . XI. in 

2010 NEXT 

2020 X=X+6 

2030 XI = INT1 XX256D AND 255 
2040 X2=X AND 255 
2050 POKE 16526. X2 
2060 POKE 16527, XI 
2070 X1=USRC0) 

2080 GOTO 30 
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2090 DATA 0. O. O, O, 0, O, 32, 32, 32. 32, 32, 32 

2100 DATA 42. 142, 64, IT, 250, 255, 25. 205, 63, 2, 62. 85, 205, 31. 

2, 6, 6, 126, 35, 205, 31, 2, 16. 249. IT. 244. 255. 25. 229. 221, 225 

. 221, 94. O. 221, 86. 1. 221. 110. 2, 221, 102, 3 

2110 DATA 175, 237, 82, 35. 124, 183, 40. 8. 6. 0. 205, O, O. 37, 24. 
244, 125, 69. 183, 196, 0. 0. 62, 120, 205. 31. 2 
2120 DATA 221, 126. 4, 205. 31. 2. 221. 126, 5. 205. 31. 2. 201 

2130 DATA 62, 60, 205, 31. 2, 120, 205, 31, 2. 123, 205, 31, 2, 79, 12 

2, 205, 31, 2, 129. 79, 26, 19, 205, 31. 2, 129. 79, 16. 247, 195, 31. 
2 

2140 GOSUB 1510 

2150 Z 1 = I NT ( 2/256 ) AND 255 

2160 Z2=Z AND 255 

2170 POKE X, Z2 

2180 POKE X+l, ZI 

2190 X=X+2 

2200 RETURN 

2210 GOSUB 1460 

2220 IF B$ = " '• THEN 2210 

2230 At=Bi+A! 

2240 RETURN 


il ich: 


Dieser Monitor unterstuzt 7 Befehle, nam 

1. Hex-Dump 
Eingabe: Hadresse 
Ab der eingegebenen Adresse wird der Speicher inhal t in hexa- 
dezimal gelistet. Jeweils nach Ausgabe einer Zeile wird die 
Tastatur auf folgende Tasten abgefragt: 

<CLEAR> - Listing abbrechen. 

<Leertaste> - Listing anhalten, bis < RE TURN > gedruckt wird. 
Die einzelnen Zeilen haben folgendes Format: 

Die ersten 4 Zeichen geben die Adresse an. in der das erste 
der 8 Bytes, die in dieser Zeile gelistet werden, steht. 

Dann folgen die 8 Bytes und zum Schluß, etwas abgesetzt, 
folgt die sogenannte Checksum. Dieses Byte ist das nieder- 
wert ige Byte der Summe aller 8 Bytes und dient als Prufmog- 
lichkeit für die Richtigkeit einer Eingabe. Alle Maschinen- 
programme in diesem Buch werden als Hex-Dump mit Prufsumme 
gelistet, so daß Sie eine einfache Möglichkeit haben, die 
Richtigkeit Ihrer Eingabe zu prüfen. 

2. ASCII -Dump 
Eingabe: Aadresse 

Ab der eingegebenen Adresse wird der Speicherinhalt als 
ASC I I -Zeichen gelistet. Jede Zeile beginnt mit der Adresse, 
in der das erste der 24 folgenden Zeichen steht, dann folgen 
die ASC I I -Zeichen . Jedes Byte unter 32 dez . wird als ',' 
dargestellt, um die Bildschirmausgabe nicht durch Codes wie 
'Backspace' etc. zu zerstören. Auch beim ASCII-Dump kann die 
Ausgabe durch <CLEAR> abgebrochen und durch <Leer taste» an- 
gehalten werden. 

3. Edit hexadezimal 
Eingabe: Eadresse 

Ab der eingegebenen Adresse kann der Speicher inhal t verän- 
dert werden. Es wird jeweils die Adresse und der bisherige 
Inhalt dieser Speicherstelle ausgegeben. Sie können dann ein 
neues Byte eingeben, das dann in dieser Speicherstelle abge- 
legt wird. Wenn Sie statt einer Eingabe nur < RETURN» druk- 
ken, wird der Editmodus abgebrochen. 

4. Edit ASCII 
Eingabe: Tadresse 

Ab der eingegebenen Adresse können Sie Texte direkt in den 
Speicher eingeben. Die Adresse wird angegeben, ihr Inhalt 
wird in hexadezimal und ASCII (Code kleiner als 32 = '.'5 
ausgegeben. Sie können nun ein Zeichen eingeben, das an die- 
ser Speicherstelle gespeichert wird. Auch hier wird die Ein- 
gabe abgebrochen, wenn Sie nur < RETURN» drucken. Achtung: Um 
ein Leerzeichen in den Speicher einzugeben, müssen Sie fol- 
gendes eingeben: " ". Dies liegt daran, daß der INPUT-Befehl 
des Colour-Basic alle führenden Leerzeichen ignoriert, eine 
Eingabe eines Leerzeichens allein also als Leerstring ange- 
sehen wird. 
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5. Go to lenory ( 

Eingabe: Gadresse byte 

Es wird zu einem Programm gesprungen, das bei der eingegebe- 
nen Adresse beginnt. Wenn Ihr Programm mit einem CALL 0A7FH 
beginnt, so können Sie ein Byte in das L-Register übergeben. 
Wenn Sie Ihr Programm mit einem CP 0A9AH beenden, so wird 
der Inhalt des L-Registers wieder an das Basic übergeben und 
der Monitor gibt es in hexadezimal aus. 

6. Hexadezimal Rechnung 
Eingabe: Rzahl 1 zahl 2 

Zahlt, Zahl 2 , ihre Summe und ihre Differenz werden in hexa- 
dezimal und ASCII ausgegeben. 

7. SYSTEM- Band schreiben 
Eingabe: Wstart ende einsprung 

Zusätzlich wird noch ein Programmname abgefragt. Dieser Name 
darf maximal 6 Zeichen lang seih und das erste Zeichen muß 
ein Buchstabe sein. Dann wird der Bereich von Start bis ende 
im SYSTEM-Band-Format auf Kassette geschrieben. Um dieses 
Band wieder einzulesen, benutzen Sie den SYSTEM-Befehl des 
Colour-Basic und geben Sie den von Ihnen gewählten Programm- 
namen an. 


Anmerkung: Für das H und das A-Kommando gilt: 

PHadresse bzw. PAadresse gibt das entsprechende 
Llsting parallel auf Bildschirm und Drucker aus. 
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Erklärung des Programms: 


Zeile 10 - 20: 
Zeile 30 - 50: 
Zeile 60 - 70: 

Zeile 80 - 110: 


Zeile 120: 


Initialisierung: Bildschirm löschen und 
Stringspace vergrößern. 

Kommandoeingabe. Wenn nur <RETURN> gedrückt 
wurde. Eingabe wiederholen. 

Erstes Zeichen der Eingabe lesen. Wenn P. 
Druckerflag (PR) setzen und nächstes Zeichen 
lesen. 

Kommando aus heraussuchen und die ent- 
sprechende Routine anspringen: 

H * 130 
A = 330 
E = 590 
T = 740 
G = 900 
R = 1040 
W = 1730 

Falls Zeichen kein zulässiges Kommando, wie- 
der zur Eingabe springen. 


Zeile 130 - 380: 
Zeile 130 - 140: 

Zeile 150 - 160: 
Zeile 170: 

Zeile 180: 

Zeile 190: 

Zeile 200 - 260: 


Zeile 270 
Zeile 330: 
Zeile 340: 
Zeile 350: 


320: 


Zeile 360: 


Zeile 370 - 380: 


Hex-Oump 

Adresse aus A$ in Z lesen und in X umspei- 
chern . 

X in Hexadezimalzahl in Z$ umwandeln. 

Adresse des ersten der folgenden 8 Bytes 
ausgeben. 

Falls nötig. Ausgabe zusätzlich auf Drucker. 
PrUfsumme auf Null initialisieren. 

8 Bytes in hexadezimal auf Bildschirm (und 
auf Drucker« wenn nötig) ausgeben und Prüf- 
summe berechnen. 

Prüf summe ausgeben. 

Startadresse um 8 erhöhen. 

KB fragt eine Tastenreihe ab. 

Wenn <CLEAR> gedrückt, Sprung zur Kommando- 
eingabe. 

Wenn nicht <Leertaste> gedrückt, nächste 
Zeile ausgeben. 

Warten, bis < RETURN > gedrückt, dann nächste 
Zeile ausgeben. 


Zeile 390 - 580: 
Zeile 390 - 400: 

Zeile 410 - 440: 
Zeile 450 - 500: 
Zeile 510 - 520: 

Zeile 530: 


ASCII -Dump 

Adresse aus A$ in Z lesen und in X umspei- 
chern. 

Startadresse der Zeile ausgeben. 

24 ASCI I-Zeichen ausgeben. 

Cursor an den Anfang der nächsten Zeile 
bringen. 

Startadresse um 24 erhöhen. 



Zeile 540 - 580s 


Tas t atur ab frage : 

<CLEAR> - Listing abbrechen 
<Leertaste> - Listing anhalten. 


Zeile 590 - 
Zeile 590 - 

Zeile 610 - 
Zeile 640 - 

Zeile 670 - 
Zeile 690: 

Zeile 700 - 


Zeile 720 - 


730: Edit hexadezimal 

600: Adresse aus A$ in Z lesen und in X umspei- 

chern. 

630: Adresse und Trennstrich ausgeben. 

660: Bisherigen Inhalt der Speicherstelle X und 

zweiten Trennstrich ausgeben. 

680: Eingabe in A$ lesen. 

Wenn nur < RETURN > gedrückt wurde, Eingabe 
abbrechen. 

710: Das eingegebene Byte in Adresse X ablegen. 

Das Z AND 255 dient dazu, sicherzustellen, 
daß nicht aus Versehen eine Zahl größer als 
255 dez. gePOKEt wird. 

730: Adresse um 1 erhöhen und Eingabevorgang wie- 

derholen. 


Zeile 740 - 
Zeile 740 - 

Zeile 760 - 
Zeile 790 - 

Zeile 840 - 
Zeile 860: 

Zeile 870: 

Zeile 880: 
Zeile 890: 


890: Edit ASCII 

750: Adresse aus A$ in Z lesen und in X umspei- 

chern. 

780: Adresse und ersten Trennstrich ausgeben. 

830: Inhalt der Speicherstelle X in hexadezimal 

und als ASC I I -Zeichen ausgeben. 

850: Eingabe in A$ lesen. 

Wenn nur <RETURN> gedrückt, Eingabe ab- 
brechen . 

ASC II -Wert des eingegebenen Zeichens in X 
ablegen . 

Adresse um 1 erhöhen. 

Eingabevorgang wiederholen. 


Zeile 900 - 1030: 
Zeile 900: 

Zeile 910 - 920: 

Zeile 930 - 940: 
Zeile 950 - 970: 

Zeile 980 - 990: 
Zeile 1000: 


Zeile 1010 - 1020: 
Zeile 1030: 


Go to memory 

Sprungadresse aus A$ in Z lesen. 

ZI = höherwertiges Byte von Z. 

Z2 = niederwertiges Byte von Z. 
USR-Sprungadresse fest legen. 

Alle Leerzeichen am Anfang von A$ wegstrei- 
chen. 

Zu übergebendes Byte aus A$ in Z lesen. 
Programm starten. Das Argument in Z überge- 
ben und das Ergebnis des Programms wieder in 
Z abspeichern. 

Ergebnis in hexadezimal ausgeben. 

Sprung zur Kommandoeingabe. 
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Zeile 1040 - 1410: Hexadez imal rechnung 


Zeile 1040; 
Zeile 1050: 


Zeile 1060 - 
Zeile 1090: 
Zeile 1100: 


Zeile 1110: 
Zeile 1120 - 

Zeile 1270 - 

Zeile 1410: 


Zahl aus A$ in Z lesen. 

Rus einer vorzeichenbehafteten Zahl in Z 
eine positive Zahl in XI machen. 

( -32768 <* Z <= 32767: 0 <= XI <= 65535 ) 
1080: Alle Leerzeichen am Anfang von A$ löschen. 
Zahl aus AS in Z lesen. 

Aus einer vorzeichenbehafteten Zahl in Z 
eine positive Zahl in X2 machen (siehe 
1050D . 

Kopfzeile der Tabelle ausgeben. 

1260: XI. X2, XI + X2 und XI - X2 in hexadezimal 
ausgeben. 

1400: XI. X2, XI + X2 und XI - X2 in dezimal 
ausgeben . 

Sprung zur Kommandoeingabe 


Zeile 1420 - 


Zeile 1420: 
Zeile 1430: 
Zeile 1440: 

Zeile 1450: 


1450; 


Zahl in Z in Dezimalstr ing umwandeln. Z$ 
enthalt Zahl rechtsbündig. 

Z$ = Zahl aus Z in Stringform. 

Vorzeichen aus Z$ entfernen. 

Falls nötig, Z% mit Leerzeichen auf 5 Zei- 
chen auf füllen. 

Rückkehr zum auf ruf enden Programm. 


Zeile 1460 - 1500: Das erste Zeichen aus A$ in B$ übertragen 
und Ai um ein Zeichen kürzen. 

Zeile 1460: B$ löschen. 

Zeile 1470: Falls A$ leer ist, sofort zurückspringen. 

Zeile 1480: Das erste Zeichen von A$ in B$ speichern. 

Zeile 1490: A$ um ein Zeichen kürzen. 

Zeile 1500: Rücksprung. 


Zeile 1510 - 
Zeile 1510: 
Zeile 1520: 
Zeile 1530 - 


Zeile 1550: 

Zeile 1560: 
Zeile 1570: 
Zeile 1580: 


Zeile 1590: 


1590: Hexadezimalzahl aus Ai in Z lesen. 

Z zunächst löschen. 

Ein Zeichen aus A$ lesen. 

1540: Falls das Zeichen keine zulässige Hexziffer 
ist C 0 - 9 oder A - F 5. Ende der Hexadezi 
malzahl . 

Hexadez imal z i f fer in B$ umwandeln in Dezi- 
malzahl in ZI . 

Z entsprechend erhöhen. 

Schleife wiederholen. 

Falls Z größer als 32767 ist, muß es eine 
negative Zahl sein (damit PEEK und P0KE 
funkt ioniert ) . 

RUcksprung . 



2elle 1600 - 1720: Zahl in 2 in hexadezimal umwandetn und ln 
Z$ oblegen, 

Zeile 1600: Falls 2 größer als 32767 ist, muß es eine 

negative Zahl sein. 

21 * höherwertiges Byte von Z. 

22 = niederwertiges Byte von Z. 

Z$ als leer initialisieren. 

Höchstwertige Ziffer erzeugen. 

Zweite Ziffer erzeugen. 

Dritte Ziffer erzeugen. 

Letzte Ziffer erzeugen. 

Zahl in Z3 in hexadezimale Ziffer umwandeln 
und an Z$ anhängen. 

Rüchsprung. 


Zeile 1610: 

Zeile 1620: 

Zeile 1630: 

Zeile 1640 - 1650 
Zeile 1660 - 1670 
Zeile 1680 - 1690 
Zeile 1700: 

Zeile 1710: 

Zeile 1720: 


Zeile 

Zeile 

Zeile 


Zelle 

Zeile 

Zeile 


Zeile 

Zeile 

Zeile 

Zeile 


Zeile 

Zeile 

Zeile 

Zeile 

Zeile 

Zeile 


1730 - 2080: Write SVSTEM-Tape 

1730 - 1780: Maschinenprogramm in WR$ einiesen. 

1790: X zeigt auf Eintrag der Variable WR$. 

In X steht die Länge des Strings. 

In X+l steht das niederwertige Byte der 
Adresse, bei der der String im Speicher 
beginnt . 

In X+2 steht das höherwertige Byte der 
Adresse, bei der der String im Speicher 
beginnt . 

1800: X = Adresse, bei der der Stringtext im Spei- 

cher beginnt. 

1810: Adresse in X für PEEH und POKE anpassen. 

1820: R * Adresse eines Unterprogramms innerhalb 

des Maschinenprogramms. (Genauere Erläute- 
rungen zu diesem Programm siehe nächstes Ka- 
pitel ) 

1830: RI = höherwertiges Byte von R. 

1840: R2 ■ niederwer t iges Byte von R. 

1850 - 1880: Unterprogrammadresse in Programm POKEn. 

1890 - 1930: Start-, End- und Einsprungadresse einiesen 

und in die ersten sechs Bytes des Maschinen- 
programms POKEn. 

1940 - 1950: Programmnamen ln PN$ einiesen. 

1960 - 1980: Byte Nr. 6 bis Byte Nr. 11 des Maschinenpro- 
gramms mit Leerzeichen füllen. 

1990 - 2010: Den Programmnamen in die Bytes 6 bis maximal 
11 des Maschinenprogramms POKEn. 

2020 - 2060: Startadresse des Programms für USR-Aufruf 
POKEn. 

2070: Maschinenprogramm auf rufen. 

2080: Zur Kommandoeingabe springen. 
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Zeile 2090 - 2130: Das Maschinenprogramm für Write Tape. 

Zeile 2090 - 2120: Das eigentliche Programm. 

Zeile 2130: Das Unterprogramm zum Schreiben eines Daten- 

blocks . 


Zeile 2140 - 2200: Eine Zahl aus fti lesen und ln X und X+l 
POKEn. 

Zeile 2140: Eine Zahl aus R$ in Z lesen. 

Zeile 2150: ZI = höherwertiges Byte von Z. 

Zeile 2160: Z2 = niederwertiges Byte von Z. 

Zeile 2170: Das niederwertige Byte wird in X gePOHEd. 

Zeile 2180: Oas höherwertige Byte wird in X+l gePOHEd. 

Zeile 2190: X wird um 2 erhöht. 

Zeile 2200: Rücksprung. 


Zeile 2210 - 2240i 
Zeile 2210: 

Zeile 2220: 

Zeile 2230: 

Zeile 2240: 


Alle führenden Leerzeichen aus Ri löschen 
Ein Zeichen aus in B$ lesen. 

Wenn BS ein Leerzeichen enthält, Prozedur 
wiederholen . 

wieder korrigieren. 

RUcksprung. 


Nach der Erläuterung des Basic-Teils des Monitorprogramms hier 
nun noch ein Listing und die Erläuterungen zu dem Maschinenpro- 
gramm, das die Bandaufzeichnung macht. 



8404 28 8E 40 

8407 11 FA FF 

8408 19 

840B CD 3F 02 
840E 3E 55 
8410 CD 1F 02 
8413 06 06 

8415 7E 

8416 23 

8417 CD 1F 02 

8418 10 F9 
841C 11 F4 FF 
841 F 19 

8420 E5 

8421 DD El 
8423 DD 5E 00 
8426 DD 56 01 

8429 DD 6E 02 
842C DD 66 03 
842F AF 

8430 ED 52 

8432 23 

8433 7C 

8434 B7 

8435 28 08 
8437 06 00 

8439 CD 57 84 
843C 25 

843D 18 F4 
843F 7D 

8440 45 

8441 B7 

8442 C4 57 84 
8445 3E 78 

8447 CD 1F 02 

8448 DD 7E 04 
844D CD 1F 02 
8450 DD 7E 05 
8453 CD 1F 02 

8456 C9 

8457 3E 3C 

8459 CD 1F 02 
845C 78 

845D CD 1F 02 

8460 7B 

8461 CO 1F 02 

8464 4F 

8465 78 

8466 CD 1F 02 

8469 81 
8468 4F 
846B 18 
846C 13 

846D CD 1F 02 

8470 81 

8471 4F 

8472 10 F7 
8474 C3 1F 02 


LD HL.C408EH) 
LD DE , FFF8H 

ADD HL, DE 
C8LL 023FH 
LD 8 , 55H 
CALL 021 FH 
LD B, 06H 
LD A.CHL) 

INC HL 
CALL 021 FH 
DDNZ 8415H 
LD DE.FFF4H 
ADD HL. DE 
PUSH HL 
POP IX 

LD E , ( IX+OOH) 
LO D,(IX+01H) 
LO L.CIX+02H) 
LD H.CIX+03H) 
XOR 8 
SBC HL, DE 
INC HL 
LD 8,H 
OR 8 

OR Z.843FH 
LD B.OOH 
CALL 8457H 
DEC H 
OR 8433H 
LD 8 , L 

LD B,L 
OR 8 

CALL NZ , 8457H 
LD 8 . 78H 

CALL 021 FH 
LD 8 , ( IX+04H) 
CALL 021 FH 
LD 8, ( IX+05H) 
CALL 021 FH 
RET 

LD A.3CH 
CALL 021 FH 
LD A.B 
CALL 021 FH 
LD 8 , E 
CALL 021FH 
LD C , 8 
LD A.D 
CALL 021FH 
ADD 8 , C 
LD C.A 
LD 8, (DE) 

INC DE 
CALL 021 FH 
ADD 8 , C 
LD C.A 
DONZ 846BH 
OP 021 FH 
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In dem Listing auf der vorherigen Seite beginnt das Programm 
bei Adresse 8404H. Dies kann jedoch nicht immer so sein, da 
die Strings immer an anderen Steilen abgelegt werden. Dies 
hängt zum Beispiel davon ab. ob Ihr Rechner über 16 oder 32 K 
RAM verfügt, ob obere RAM-Bereich durch Eingabe einer MEM SIZE 
geschützt wurden etc. Hierdurch taucht ein großes Problem auf: 
Das Maschinenprogramm muß zum einen auf Adressen zugreifen, in 
die das Bas ic-Programm die Start-. End- und Einsprungadresse 
des auf Band zu speichernden Speicherbereichs sowie den Pro- 
grammnamen abgelegt hat. Zum anderen wird in dem Programm zwei- 
mal ein Unterprogramm aufgerufen. Auch diese Adresse muß korri- 
giert werden. Dieses Problem löst schon der Basic-Teil der 
Write SYSTEM Tape Routine. In den Zeilen 1820 bis 1880 wird aus 
der Anfangsadresse des Programms der Anfang des Unterprogramms 
berechnet und an den entsprechenden Stellen im eigentlichen 
Programm abgelegt C in diesem Listing wären dies die Adressen 
843AH und 8443H). Um die Stellen zu finden, an denen das Basic- 
Programm die nötigen Adressen und den Programmnamen abgelegt 
hat, wird derselbe Trick benutzt, diesmal jedoch vom Maschinen- 
programm aus. 

In Adresse 8404 wird das HL-Register mit dem Inhalt der Spei- 
cherzellen 408EH/408FH geladen. Diese Speicherzellen enthalten 
die Startadresse der Routine, die mit dem USR-Befehl aufgerufen 
werden soll (kennen Sie sicher: 16526/'16527 dez . ) . In diesem 
Fall würde HL also 8404H enthalten, denn dies ist ja die Start- 
adresse des Programms' 

Die nächsten zwei Befehl erniedrigen HL um 6. sodaß es nun auf 
den Beginn des Programmnamens im Speicher zeigt. Nun wird 
zunächst eine ROM-Routine aufgerufen, die einen sogenannten 
Leader auf das Band schreibt. Dieser Leader sorgt dafür, daß 
beim Lesen alle Bytes genauso gefunden werden, wie sie ge- 
schrieben wurden (siehe nächstes Kapitel: Format von SYSTEM- 
und CLOAD-Bändern j . Die Befehlsfolge LD A.S5H: CALL 021FH zei- 
chnet das Byte 55H auf Kassette auf. Die Befehle in den Adres- 
sen 8413H bis 841BH stellen eine Schleife dar. die den Pro- 
grammnamen auf Kassette aufzeichnet . Die Befehle in Adresse 
841CH bis 842EH laden die Startadresse des Programms in DE und 
die Endadresse in HL. Nun wird die Differenz berechnet und in 
HL abgelegt. Adresse 8433H bis 843EH stellt wieder eine Schlei- 
fe dar. in der soviele 256 Byte lange Blöcke vom Speicher auf 
Kassette übertragen werden, wie durch die Programmlänge angege- 
ben wurden. Dann wird noch (843FH bis 8444H) , falls nötig, ein 
kürzerer Block ausgegeben, der die restlichen Bytes enthält. 

Zum Abschluß wird die Einsprungadresse aufgezeichnet und in den 
Basic-Teil des Monitorprogramms zurückgesprungen. 

Das Unterprogramm, das einen Block aufzeichnet, hat folgende 
Form: 

Zunächst wird ein Byte 3CH auf gezeichnet , dann die Blocklänge 
aus dem B-Register. Dann folgen das niederwer t ige und höherwer- 
tige Byte der Startadresse des Blocks, dann alle Datenbytes. 

Zum Schluß wird noch die Prüf summe ausgegeben (Siehe nächstes 
Kapitel). 



Das Format von SYSTEM-Bändern: 


Ein Band, das mi 
folgendes Format 

1 . Leader 


2. Ein Byte 55H: 

3. Der Programm- 
name 

4. Blockkennung: 

5. Datenblocks: 


6, Einsprung: 


t dem SYSTEM-Befehl eingelesen werden soll, muß 
haben : 

Dieser Leader besteht aus 256 Bytes RAH und 
einem Byte 66H. Der Sinn dieses Leaders ist 
folgender : 

Jedes Byte wird bitweise auf Kassette aufge- 
zeichnet. Es ist also wichtig, das der Rechner 
an der richtigen Stelle anfängt, zu lesen, um 
die richtigen Bits zu einem Byte zusammenzu- 
fassen. Dabei hilft der Leader. Der Rechner 
liest immer ein Bit vom Band und schiebt es 
durch das R-Register. Solange die Bytes AAH 
gelesen werden, enthält das R-Register 
entweder RAH oder 55H , aber nie 66H. In dem 
Moment, in dem das R-Register 66H enthält, 
weiß der Rechner, daß er die Bits nun richtig 
in Gruppen zusammenfassen kann. 

Dieses Byte dient als Kennung für SYSTEh-Bän- 
der . 

Die nächsten 6 Bytes geben den Programmnamen 
an, Falls dieser kürzer als 6 Zeichen ist, so 
sind die letzten Zeichen Leerzeichen. 

Als nächstes Byte folgt die sogenannte Block- 
kennung. Ein Byte 3CH gibt an, daß nun ein Da- 
tenblock folgt, ein Byte 78H gibt an, daß nun 
die Einsprungadresse des Programms folgt. Alle 
anderen Bytes werden ignoriert und es wird 
weiter nach 3CH oder 78H gesucht. 

Das erste Byte in einem Block gibt die Anzahl 
von Datenbytes an, die dieser Block enthält. 
00H entspricht dabei 256 dez . 

Das zweite und dritte Byte bilden die Adresse, 
ab der die Datenbytes im Speicher abgelegt 
werden sollen. 

Dann folgen die Datenbytes und zum Schluß noch 
ein Byte, die Checksum. 

Diese Checksum ist das niederwertige Byte der 
Summe aller Datenbytes plus das höher- und 
niederwertige Byte der Ladeadresse. 

Nach dem Byte 78H folgen das niederwertige und 
das höherwertige Byte der Einsprungadresse des 
Programms , 



Das Format von CLORO-Blindern 


Bändern, die mit dem CLORD-Befehl geladen werden sollen, mtissen 
folgendes Format haben: 

1 . Leader 

2. Drei Bytes D3H 

3. 1 Byte für den Programmnamen 

4. Der Programmtext, wie er im Speicher steht. Ende, wenn Link 
OOOOH erreicht. 

Wichtig ist, daß der CLORD-Befehl kein Prüf summen akzeptiert 
und also das Gelesene in keiner Weise auf Richtigkeit über- 
prüft . 
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Die Begriffe "LSB" und "MSB” 


Wir gehen davon aus, daß Ihnen die Begriffe Bit, Byte und 
Hexadezimalsystem vertraut sind. Sollte dies jedoch nicht der 
Fall sein, lesen Sie vorab Kapitel 31 des Handbuches 
"COLOUR BASIC - leicht gelernt". 

Was bedeuten nun die Abkürzungen LSB und MSB *> 

LSB ist die englische Abkürzung für "Lower Significant Byte", 
was soviel bedeutet wie niederwertiges Byte. 

Entsprechend ist MSB die Abkürzung von "More Significant Byte", 
und bedeutet höherwertiges Byte. 

LSB und MSB bilden zusammen eine 16-Bit Adresse mit der alle 
Speicheradressen angesprochen werden können. 

64 K-Byte sind genau 65536 Byte die mit Adressen »zwischen 
0000H und FFFFH CO bis 65535) angesprochen werden. 

Wenn man z.B. Adresse 44E2H ansprechen will, so ist das MSB=44H 
und das LSB=E2H . 

Die dezimale Schreibweise ergibt sich aus: 

44H - 68 dez. und E2H = 226 dez . , also 68*256+226 = 17634. 

Man multipliziert also das MSB mit 256 und addiert das LSB 
hinzu. 

In der Z-80 Maschinensprache werden die beiden Adreßbytes in 
der Reihenfolge LSB/MSB abgearbeitet. Also z.B. OP 0066H muß 
als C3 66 00 eingegeben werden. 

Der Basic-Interpreter verhalt sich beim Gebrauch von Adressen 
und Variablen genauso Csiehe auch "Links" und "Zeilennummern" 
im folgenden Kapitel). 


Wie werden Basicprogramme abgespeicher t ? 


Sie kennen natürlich den Basic-Befehl "LIST“. Dieser Befehl 
zeigt Ihnen in klar lesbarer Form das Basicprogramm an. 
das im Speicher steht. 

Wie aber "merkt" sich der Computer das Programm intern - 
so wie Sie es auf dem Bildschirm sehen oder etwa anders'» 

Und woher weiß das Colour-Genie. wo es das Programm abspeichern 
soll'» 

Diesen Fragenkomplex wollen wir nun klären, Am Ende finden Sie 
dann eine interessante Anwendung. 

1. Die Bas icpr ogramm- Anfangsadresse : 

In den beiden Speicherzellen 40A4H und 40A5H (16548 und 
16549 dez.) steht die Adresse, bei der das Basicprogramm 
im Speicher beginnt. 

Haben Sie beim Einschalten nicht <MOD S£L> niedergehalten, 
beginnt das Basicprogramm bei 5801H (22529 dez.). 

Dies läßt sich einrach überprüfen: 

READY 

»PRINT PEEK C 8cH 40A4 ) +256*PEEK ( &H40A5 ) 

22529 

READY 

»PRINT &H5801 
22529 
READY 


Wenn Sie beim Einschalten die <MOD SEL»-Taste gedrückt 
haben, d.h. wenn der Speicher von 4800H (18432 dez.) bis 
57FFH C 22527 dez.) nicht für die hochauflösende Qrafik 
verwendet werden soll, beginnt das Basicprogramm bei 
Adresse 4801H (18433 dez.). 

Auch dies läßt sich leicht überprüfen: 

READY 

»PRINT ( PEEM(JtH40A4) +256*PEEK( fcH40A5) ) =&H4801 
-1 

(Die -1 bedeutet, daß obige logische Aussage wahr ist.) 

2. Die Speicherung eines Basicprogramms: 

Wir wissen nun. ab welcher Adresse ein Basicprogramm im 
Speicher beginnt. 

Die Frage ist nun: Wie wird das Programm dort gespeichert. 
Um dies zu untersuchen, laden Sie den "Bas ic-Monitor ", 
den weiter vorne aufgelistet finden, und den Sie aur ein 
Band gespeichert haben sollten. Wenn Sie dies noch nicht 
getan haben, holen Sie dies jetzt nach. 

Wir wollen nun mit dem "Basic-Monitor" untersuchen, wie 
der Monitor selbst abgespeichert wird. 



Wenn Sie beim Einschalten nicht <MOD SEL> gedrückt hatten, 
beginnt das Programm im Speicher bei Adresse S801H. 

Starten Sie nun den "Basic-Moni tor " mit "RUN". 

Geben Sie dann "H5801" ein - der Monitor macht nun ein 
hexadezimales Listing. Brechen Sie dieses nach der 7. Zeile 
mit <CLEAR> ab. Anschließend können Sie noch ein ASCII - 
Listing dieses Speicherbereiches machen. Dazu geben Sie 
das Kommando "A5801" ein. Dieses Listing können Sie nach der 
3. Zeile ebenfalls mit <CLEAR> abbrechen. Ihr Bildschirm 
sieht dann etwa so aus (Die Linien sind nachträglich zur 
Orientierung eingezeichnet; darunter sind hier noch die 
ersten vier Zeilen des "Basic-Moni tors" zum Vergleich 
aufgelistet 1 : 
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10 CLS 

20 OLE AR 1000 
30 PR I NT"Command” ; 
40 INPUT A$ 


3ede Basiczeile hat im Speicher nun folgendes Formats 

1. 2 Bytes, die die Anfangsadresse der nächsten Zeile 
angeben. ("Link"! 

2. 2 Bytes, die die Zeilennummer in hexadezimal enthalten. 

3. Der Text der Zeile, wobei alle Befehle in sogenannte 
"Tokens" verschlüsselt werden. D.h., daß ein Befehl 
nicht als Zeichenfolge gespeichert wird, sondern als 
ein oder zwei Bytes. Eine Liste dieser Tokens mit den 
zugehörigen Befehlen finden Sie in Anhang A. 

Alles, was kein Befehl ist, wird in normaler Text form 
abgespeichert . 

4. Ein Byte OOH als Zei len- End -Kennung. 

Oas Programmende ist durch einen Link markiert, der 00 00 
ist. 

Dies klingt alles recht kompliziert, aber anhand des oben 
ausgedruckten Beispiels wollen wir Ihnen das Prinzip 
nun verdeutlichen. 




zuerst einmal die erste Basic Zeile an: 


Sehen wir uns 


10 CLS 
Im Speicher 
5801: 07 58 


5803*. 0A 00 
5805: 84 


5806: 00 


steht : 

Dies ist der Link, d.h. die nächste Zeile 
beginnt bei Adresse 5807H. 

Beachten Sie. daß die Adresse 5807H , wie 
üblich, als 07 58 gespeichert (siehe voriges 
Kapitel LSB/MSB). 

Dies ist die Zellennummer: 000AH = 10 dez . 
Dies ist das Token für den Befehl CLS, 
wie Sie anhand Anhang A und Anhang B leicht 
überprüfen können. C84H = 132 dez . ) 

Ende der Zeile 


Genauso laßt sich die zweite Programmzeile untersuchen: 

20 CLEAR 1000 
Im Speicher steht : 

5807: 12 58 Die nächste Zeile beginnt bei Adresse 5812H. 
5809: 14 00 Zeilennummer: 0014H = 20 dez. 

580B: B8 Token für CLEAR ( B8H = 184 dez . J . 

580C : 20 31 30 30 30 ASCII-Text ' 1000'. 

5811: 00 Zellenende. 


Analog dazu können Sie auch die zwei nächsten Zeilen 
erkennen, sowie natürlich jede andere Basic-Zeile auch. 

Wie Sie Anhang A entnehmen können, sind die Dezimalwerte 
aller Tokens größer als 127, d.h. ein Token ist durch ein 
gesetztes Bit Nummer 7 gekennzeichnet C Im Gegensatz zu den 
ASCI I -Zeichen, die alle einen Wert kleiner als 128 haben - 
vergleiche dazu Anhang B) . 

Daraus ergibt sich, daß mit einem Byte nur maximal 128 
Befehle codiert werden können, da das 7. Bit ja immer 
gesetzt sein muß. Beim großen Befehlssatz des Colour-Genies 
reichte dies jedoch nicht aus. Aus diesem Grunde wurde für 
eine Reihe von Befehlen eine Codierung mit zwei Bytes 
gewählt, wobei das erste Byte immer FFH (255 dez.) ist. 

Der Befehl PLOT hat z.B. das Doppeltoken FFH 84H (255 dez. 
132 dez . ) . 

In diesem Zusammenhang seien noch drei Besonderheiten 
der Abspeicherung erwähnt: 

1. Beim Befehl ELSE wird intern vor dem ELSE noch ein 
Doppelpunkt abgespeichert, der beim LISTen aber nicht 
ausgegeben wird. 

2. Der Befehl FCOLOUR wird durch 3 Bytes ausgedrückt: 

FFH 8 1 H 52H (255 dez. 129 dez. 82 dez.) 

3. Die Kurzform des REM-Befehls £*) wird auf folgende Weise 
abgespeichert : 

3AH 93H FBH (58 dez. 147 dez. 251 dez.) 
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Pils letztes wollen wir nun eine interessante Anwendung für 
das in diesem Kapitel Erklärte bringen. 

Es kommt öfters vor, daß man in einem Bas icprogramm Teile 
des Programms selbst ändern möchte. Dies ist nicht ohne 
weiteres möglich - normalerweise muß man die entsprechende 
Zeile erst eingeben bzw. editieren und muß dann das Programm 
neu starten. 

Wenn man allerdings weiß, wie Basicprogramme abgespeichert 
werden, kann man das Programm von sich aus ändern. 

Ein wesentlicher Vorteil neben dem Eingabe-Komfort ist, daß 
bei dieser Methode keine Variablenwerte gelöscht werden. 

Folgendes Programm ist nun ein Beispiel für dieses Verfahren. 

Das Programm fragt nach einer mathematischen Funktion. Diese 
geben Sie ganz normal ein und sie wird dann in das Programm 
"gePOKEd". Anschließend werden noch Unter- u. Obergrenze, sowie 
die Schrittweite abgefragt. Das Programm berechnet dann eine 
Wertetabelle für die Funktion. 

Natürlich gibt es eine Menge anderer Anwendungen - lassen Sie 
mal Ihre Phantasie spielen • 

Wichtig kann die Kenntnis des Abspeicherverfahrens auch sein, 
wenn man ein kaputtes Basicprogramm, in dem z.B. falsche 
Zeilennummern Vorkommen, reparieren will. 

Programml ist ing: 

10 CLEAR500 : DEFINTA-V s CLS : G0T030 

20 Y=SINCX) {RETURN: REM: ::::::::::::::::::::::::::::::::::::::::::::::: 
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 

30 INPUT"Funktion: Y = ":FS 
40 FS="Y="+FS 
50 TS = "" 

60 PR I NT §40 , Ft : CHRS C 30) : X=6040 : T=205 

TO I FX=6095THEN 1 30ELSERS =CHRS ( PEEK t X ) AND 1 27 ) :X=X+1 

80 IFPEEHCX) >127THEN100 

90 RS =RS+CHR$ C PEEKC X 5 ) : X=X+1 : G0T080 

100 IFLENCFS) <LENCR$)TH£NT=T+i :GOT070 

110 I FLEFTS C FS , LENC RS ) ) < >RSTHENT=T+1 : G0T070 

120 TS=TS+CHRSCT) : FS=RIGHTSC FS . LENC FS) -LENCRS) ) : IFFS< > ""THEN60ELSE 140 
130 TS*TS+LEFTSC FS , 1 ) : FS=RIGHTSC FS ,LENC FS) -1 ) : IFFSO““THEN60 
140 PRINTS40, ; :TS=TS+": "+CHRSC 146)+“: "+CHRSC 147) 

150 X = PEEKCicH40A4)+256*PEEKtftH40A5) 

160 XI =PEEKC X) +256*PEEKC X+ 1 ) 

170 IFP£EKCXl+2)+256*PEEKCXl+3X>20THENX=Xl:G0T0160 
180 Xl=Xl+4 

190 F0RX= 1T0LENC TS ) : P0KEX1 .ASCCMIDSCTS.X. 1) ) :X1=X1+1 :NEXTX 
200 0NERR0RG0T021O: G0SUB20 : ONERRORGOTOO : G0T0230 

210 IFERR=50RERR= 1 1THEN230ELSEC0L0UR3 : PRINT“Fehl er hafte Funkt ion" : CALL 
357C : C0L0UR2 

220 IF INKEYS =“”TH£N220ELSERUN 

230 INPUT "Unter grenze“: XU 

240 INPUT"Obergrenze”:XO 

250 I FXU> =X0THEN230 

260 INPUT "Sehr ittweite";XS 

270 I FXS< =0THEN230 

280 FORX-XUTOXOSTEPXS 

290 G0SUB2O : PRINT"FC ";X ; ") -"sY 

300 IFINKEY$*"”THEN300ELSENEXTX 

310 IFINKEYS« “"THEN310ELSERUN 
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Erklärung 
Zelle 10 : 

Zeile 20 : 


Zeile 30 : 
Zeile 40 : 
Zeile 50 : 
Zeile 60 : 

Zeile 70 : 
Zeile 70 C 

Zeile 100: 

Zeile 110: 
Zeile 120: 

Zeile 130: 

Zeile 140: 

Zeile 150: 
Zeile 160 

Zeile 180: 


des Programms: 

Genug Platz für Strings schaffen, zur Beschleunigung 
des Programmablaufs alle nicht benutzten Variablen 
als Integer erklären, den Bildschirm löschen und das 
eigentliche Programm starten. 

In dieser Zeile soll die Funktion als Unterprogramm 
abgelegt werden. Oie ' : ’ halten den Platz für län- 
gere Funktionen frei. Das Unterprogramm besteht 
immer aus der Berechnung eines Wertes Y aus einer 
Funktion von X. Das REM verhindert, daß etwaige 
Reste längerer Funktionen zu einem SYNTAX Error 
führen . 

Die Funktion wird in F$ eingelesen. 

Oer erste Teil des Unterprogramms ist Y=fCX). 

In T$ wird die codierte Zeile generiert. 

Den noch zu codierenden Rest der Funktion ausgeben, 

X zeigt auf den Anfang einer Tabelle im ROM, in der 
sämtliche BASIC-Schlüssel worte stehen (diese Tabelle 
beginnt bei 1650H. in diesem Fall wurde jedoch erst 
bei den arithmetischen Schl üssel Worten begonnen!. T 
entspricht dem Token des momentanen Schlüsselwortes. 

Wenn X = 6095, dann ist das Ende der arithmetischen 
Schlüssel worte erreicht, also wurde kein passendes 
gefunden. Weiter Verarbeitung in Zeile 130. 

Rest) - Zeile 90 : 

Das momentane Schlüsselwort wird in R$ eingelesen. 

Der erste Buchstabe des nächsten Schlüsselwortes ist 
durch ein gesetztes Bit 7 gekennzeichnet, wenn ein 
solches Zeichen gefunden wird, enthält R$ das kom- 
plette Schlüsselwort. 

Wenn der noch zu codierende Rest der Funktion kürzer 
als das gefundene Schlüsselwort ist, kann es nicht 
passen. Nächstes Schlüsselwort versuchen' 

Falls der Rest der Funktion das Schlüsselwort nicht 
enthält, nächstes Wort versuchen' 

Passendes Wort gefunden. Token an T$ anhängen, F$ 
entsprechend kürzen. Wenn FS noch nicht leer ist, 
weitermachen, sonst ist die Codierung beendet. 

Diese Zeile wird angesprungen, wenn kein Token 
passt. Ein Zeichen aus F$ wird in T$ übertragen. F$ 
wird gekürzt. Wenn F$ noch nicht leer ist, weiter- 
machen. sonst ist die Codierung beendet. 

An T$ wird noch der Code für * : RETURN: REM' ange- 
hängt. um die Basic-Zeile zu komplettieren. 

X zeigt auf die erste Programmzeile. 

- Zeile 170: 

Zeile 20 wird im Programm gesucht. Die Anfangs- 
adresse steht dann in XI. 

Link und Zeilennummer werden übersprungen. 
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Zeile 190s T$ wird in Zeile 20 kopiert. 

Zeile 200 - Zeile 220 : 

Zeile 20 wird auf Fehler getestet. Die Zeile wird 
ausgeführt CGOSUB 20). Wenn kein Fehler auftaucht, 
wird zu Zeile 230 gesprungen, vorher jedoch noch die 
Fehlerabfrage abgestellt (0N ERROR GOTO OsGOTO 230). 
Wenn ein Fehler auftaucht, so darf dies nur der 
FC-Error (Fehlercode 5) oder der XO-Error (Fehler- 
code 11) sein, sonst ist die Funktion fehlerhaft. 
Zeile 230: In XU wird die Untergrenze eingelesen. 

Zeile 240: In XO wird die Obergrenze eingelesen. 

Zeile 250: Falls die Untergrenze größer oder gleich der 
Obergrenze ist, wird die Eingabe wiederholt. 

Zeile 260: In XS wird die Schrittweite eingelesen. 

Zeile 270: Falls die Schrittweite kleiner oder gleich Null ist. 
wird die Eingabe wiederholt. 

Zeile 280: Schleife von XU bis XO «it der Schrittweite XS. 

Zeile 280: Aus X einen Y Wert berechnen und ausgeben. 

Zeile 300: Auf einen Tastendruck warten, dann nächsten Wert 
berechnen und ausgeben. 

Zeile 310: Nach Beendigung der Schleife auf Tastendruck warten, 
dann Programm neu starten. 
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Wie werden Basic-Var iablen abgespeichert? 


Die Basic-Var iabl en werden in zwei Untergruppen aufgeteilt, 
nämlich: 

- die normalen Variablen C z.B. fl = 0 ) und die 

- Feldvariablen C z.B. DIM A(100) ) 


Die normalen Variablen werden direkt hinter de* Basic-Programm 
abgelegt (dies ist auch der Grund, weshalb nach jeder Verände- 
rung des Programms alle Variablen gelöscht sind, denn das 
Programm kann ja dadurch seine Länge verändern). Die Anfangs- 
adresse dieses Speicherbereichs (und damit natürlich auch die 
Endadresse Ihres Basicprogramms ) steht in den Speicherzellen 
40F9H/40FAH (16633/16634 dez . ) . In diesem Speicherbereich ste- 
hen die einzelnen Variablen nun einfach hintereinander, und 
zwar in folgendem Format: 


1 Byte Typcode 


Dieses Byte ist so gewählt, daß es auch die 
Länge des Datenfeldes der Variable angibt : 

02 = Integer 

03 = String 

04 = einfache Genauigkeit 
08 = doppelte Genauigkeit 


2 Bytes Name Der Name wird umgekehrt abgespeichert, das 

heißt, die Variable Al heißt im Speicher lfl. 
Einbuchstabige Variablen wie fl, B u.ä. wer- 
den mit einem Byte 00H an erster Stelle 
abgespeichert (z.B. 00H 41H = Variable fl). 
Der Sinn dieser Methode ist , daß in jedem 
Fall ein Kennbuchstabe direkt vor dem Daten- 
feld steht, dies erleichert den Vorgang des 
Suchens nach einer bestimmten Variable. 


2-8 Bytes 
Datenfeld 


3e nach Typ folgen nun die der Variable zu- 
geordneten Daten: 


Integer 

Der Wert in LSB/MSB Format. 


Strings 

Das erste Byte gibt die Länge des Strings 
an, die beiden anderen, wo der String im 
Speicher beginnt. 



Einfache Genauigkeit 

Die ersten drei Bytes enthalten die Mantis- 
se. das vierte Byte den Exponenten. Die Man- 
tisse ist folgendermaßen strukturiert: 

Das 3. Byte ist das höchstwertigste, dann 
folgt das zweite und das erste Byte ist das 
niederwertigste. Diese drei Bytes zusammen 
ergeben eine 24-bit Zahl, wobei das höchste 
Bit das Vorzeichen der Mantisse angibt 
( 0 = positiv ). Das höchste Bit des Expo- 
nenten gibt an, ob der Binärpunkt nach 
rechts oder nach links verschoben wird 
( 0 * rechts 3, die restlichen sieben Bits 
geben an, um wieviele Stellen der Punkt ver- 
schoben wird. 

Doppelte Genauigkeit 

Die Struktur entspricht genau der oben ge- 
schilderten, doch die Mantisse ist insgesamt 
56 Bits lang. 


Nach der Variablentabelle folgt der Speicherbereich, in dem die 
Felder abgelegt werden. Der Beginn dieses Bereiches steht in 
den Adressen 40FBH/40FCH (16635/16636 dez.J. Der Eintrag für 
ein Feld sieht nun folgendermaßen aus* 


1 Byte Typcode Wie bei Variablen: 

02 = Integer 

03 = String 

04 ■ Einfache Genauigkeit 
08 = Doppelte Genauigkeit 

2 Bytes Name Die Abspeicherung des Namens entspricht der 

bei normalen Variablen. 


2 Bytes Länge 


1 Byte 
Dimension 


Die folgenden zwei Bytes geben an, wieviel 
Speicherplatz das Feld benötigt. Wenn man zu 
der Adresse, in der das erste dieser beiden 
Bytes steht, diese Länge + 2 addiert, erhält 
man die Adresse, bei der das nächste Feld im 
Speicher beginnt. 

Dieses Byte gibt an, wieviele Dimension das 
Feld hat. 
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n * 2 Bytes 
Dimension 


Datenfeld 


Nun folgt für jede Dimension deren Länge. Da 
jede Dimension von 0 bis zum maximalen Index 
angesprochen werden kann, steht hier der 
maximale Index + 1. 

Schließlich folgen die Daten, die das Feld 
enthält. Ihr Format entspricht dem der Daten 
von normalen Variablen. 

Die Daten sind folgendermaßen sortiert: 

Gehen wir von dem Feld AC2.1) aus. Dann 
steht im Speicher: 

ACO.O) : AC1.0): AC2.0); AC0.1): ACi.l): 
AC2.1) 


Das Ende des Speicherbereichs, in dem die Felder abgelegt wer- 
den und somit der Beginn des freien Speichers steht in den 
Adressen 40FDH/40FEH (16637/16638 dez . 5 
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Zusammenladen von mehreren Bas icprogrammen 


Sie kennen sicher das Problem, daß man zwei Bas icprogramme an- 
einanderhängen möchte, ohne einen der beiden Teile neu eintip- 
pen zu müssen. 

Abhilfe schafft folgendes Vorgehen: 

1. Das Bas icprogramm mit den kleinsten Zeilennummern mit CLOAO 
l aden . 

2. Eventuell Programm ändern... 

3. Folgende Zeile eingeben lohne Zei l ennummer !) : 

A = PEEK(*cH40F9)+256*PEEK(&H40FA) :A=A-2 : P0HEfcH40A4 ,A- INTC A/256 
) *256 : P0KE&H40A5 , INTIA/256) 

CZur Erklärung der Adressen 40F9H/40FAH siehe Kapitels 
"Wie werden Variablen abgespeichert'*" 5 

4. Nächstes Basicprogramm mit CLOAD laden. Wichtig ist, daß 
dieses Programm keine Zeilennummer enthält, die kleiner oder 
gleich der höchsten Zeilennummer ist, das als letztes gela- 
den wurde. 

5. Schritte 2 bis 4 sooft wiederholen, bis alle Tei l Programme 
einmal geladen wurden. 

6. Folgende Zeile eingeben lohne Zeilennummer!): 

POKE&H40A4 , 1 : POKEfcH40A5 , 88 

7. Nun sind alle Programme vorhanden und Sie können mit Ihnen 
arbeiten. 

Bitte beachten Sie: 

Schritt Nr. 6 gilt nur. wenn Sie beim Einschalten nicht die 
MOD SEL-Taste gedrückt hatten und keine Programme wie den 
Colour-Compi ter oder den Col our-Assembler geladen und gestartet 
haben. Dies alles verändert die Startadresse des Basicpro- 
gramms (siehe Kapitel "Wie werden Basicprogramme abgespei- 
chert'* ") . In einem solchen Fall geben Sie vor Schritt i fol- 
gende Zeile ein (ohne Zeilennummer): 

PRINTPEEK(8tH40A4) : PEEK( IH40A5) 

und merken sich die beiden Zahlen, die nun ausgegeben werden. 

In Schritt Nr. 6 tauschen Sie nun die 1 gegen die erste und die 
88 gegen die zweite der beiden Zahlen aus. 
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Reserviert 


Sie hassen doch sicher auch die Situation, daß ein Program« 
Ihnen anzeigt: "Bitte geben Sie bei MEM SIZE'* 32000 ein," 

Mit den folgenden Zeilen können Sie in Ihren Bas icprogranmen 
eine Speicherobergrenze für das Basic neu festlegen- Sinnvoll 
ist dies, wenn «an, kombiniert mit dem Basic, Maschinensprache- 
programme verwendet . 

10 CLERR 50 

20 Hfl*PEEK( &H40B1 )+256#PEEKCIiH40B2) 

30 Hfl=32000 : ' Je nach Bedarf fest legen 
40 H2=INTCHA/256) :H1=HA-H2*256 
50 P0KE&H40B1 ,H1 : P0KEfcH40B2 ,H2 
60 P0KE&H40D6 , H 1 : P0KE&H40D7 , H2 
70 CLEAR50 

80 REM Hier folgt Ihr Basicprogram« 


In Zeile 20 wird die alte Speicherobergrenze gelesen. 

In Zeile 30 wird die neue Speicherobergrenze festgelegt. 

(Hier 32000: Ihren Wünschen entsprechend ändern) 

In Zeile 40 wird die 2-Byte- Integerzahl für die neue Obergrenze 
in zwei einzelne Bytes zerlegt. 

In Zeile 50 und 60 werden diese neuen Werte in die Basicspei- 
cheradresse und Stringvariablenadresse geschrieben. 

Die Zeilen 10 und 70 sind notwendig und dürfen nicht entfernt 
werden. 



Ausgabe der Bytes 0,11 oder 12 an den Drucker 


Das Basic-ROM des Colour-Genie wandelt die Bytes 11 dez . (Top 
of form) und 12 dez. (Formfeed) in eine Folge von 10er (dez.) 
Bytes (Linefeeds) um. 

Das Byte 0 wird überhaupt nicht ausgegeben. 

(Zum Vergleich können Sie die entsprechende ROM-Routine mit 
einem Disassembler listens Sie beginnt bei Adresse 04E7H und 
endet bei Adresse 0563H.) 

Das heißt also, daß die Befehle L PR INT CHR$C0), L PR I NT CHR$(11) 
und L PR INT CHR$(12) nicht die Werte 0.11 und 12 an den Drucker 
ausgeben > 

Dies kann, je nach angeschlossenem Drucker, zu einigen 
Problemen führen. So kommt es bei der Programmierung von 
hochauflösenden Grafiken über Einzelnadelsteuerung (Bit-Image- 
Grafik) oft zu falschen Ausdrucken. Ferner ist die Tabulator- 
programmierung des Druckers oft beschränkt, da Byte 11 (dez.) 
das Steuerzeichen für einen vertikalen Tabulator ist. Eine 
anderes Problem ist z.B., daß man beim Star-Drucker OP 510 die 
Unterstreichung hilfs eines Bytes 00 abschaltet. Alle diese 
Probleme kann man mit folgenden Basic-Zeilen lösen, die mit 
GOSUB 100 aufgerufen werden. Der ASCII-Wert des auszugebenden 
Zeichens steht dabei in Variable X. 

100 SOUND 7.127 : 0UT248.15 * IF (INP(249) AND 239) = 47 THEN 
110 ELSE 100 

110 SOUND 7.127 : SOUND 14, X : SOUND 7.255 t SOUND 15.0 : SOUND 
15.1 : RETURN 

Zeile 100 prüft, ob der Drucker druckbereit ist. In Zeile 
HO wird der Wert X an den Drucker ausgegeben. (Zur Ausgabe 
von Buchstaben vergleiche Anhang B.) 

Natürlich können Sie die Zei l ennummern so ändern, daß Sie in 
Ihr Programm passen. Als Anwendungbeispiel für obige Zeilen 
folgt nun ein kleines Programm, daß auf dem STAR-Orucker OP 
510/DP 515 ein kleines Pferd ausdruckt: 

Das Programm finden Sie auf der nächsten Seite aufgelistet. 
Beachten Sie. daß das Programm nur auf dem STAR-Orucker 
DP 510/515 läuft. In den Programmzeilen 260 und 270 finden 
Sie übrigens die oben aufgeführten Ausgabezeilen. 
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50 LPRINTCHR$C27J : "9" 

60 DEFINTR-Z 

70 PRINT"Haben Sie etwas Geduld, ich drucke gleich" 

80 F0RZ= 1T010 

90 UPRINTCHRS C 27) "K"CHRt ( 86) { $X=0sG0SUB260 

100 FORC = 1 T086 : RERDX s G0SUB260 : NEXT 

110 LPRINTCHR5C27J "0"CHRS( 16) : sNEXT sLRPINT s END 

120 DRTRO. 0.0. 0.0. 0,0, 0,0. 0.0, 0.0. 0,0, 0,0, 0,0, 0,0, 0.0, 0.0, 0,0, 0,0. 0.0. 


130 DRTRO ,0,0, 0.0. 0,0. 0,0, 0,0, 0,0, 0.0, 0,0, 0,0, 0,0, 0.0. 0,0, 0,0, 0,0, 0,0, 


140 DRTRO, 0,0, 0,0, 0,0. 0,0. 0.0. 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0.0, 0,0. 0,0, 
0,0,0,0.0,0.0.249,255.255,255,255,255,255.255, 15.1.1.1.1,1,0,0.0,0,0,0 
.0.1.7.15.31,63.127,127,255,255,255.255,255.255.255.255,255.255,255.12 

7. 7. 0. 0. 0.0. 0.0.0 

150 DRTRO, 0,0, 0,0, 0.0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0.0. 0,0, 0.0, 0,0, 1, 1 ,1,1, 

1.0. 0.0.0.0.1.7.31.255.255.255.255.255.255.255.255.255.255.207.207.255 
.79,127.47.63,63,255,255,255,255,255,255,255.255.255,255,254.252,148,2 
1 2 . 246 . 242 , 254 . 254 . 255 , 255 . 254 , 254 . 1 2 

160 DRTRO.0.0.0,0 

170 DRTRO,0,0,0,0,0.0,0,0,0,0,3,7,31 ,28,56,48,51 ,63,31,31.63,63.127,12 
7.255.255,255.255,255,255,255.255,255.255,255.255.255,255.255,255.255, 
255 , 255 . 255 . 255 . 255 . 255 . 255 . 255 , 255 . 255 . 255 , 255 . 255 , 255 . 255 , 255 , 255 . 25 

5 . 255 . 255 . 255 . 255 . 255 . 255 . 255 

180 DRTR255 ,3, 0,0, 0.0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 

190 DRTR0,0,0.0,0,0,0.0,1,31, 127,255,255,192.0.0.240,254,255,255.255,2 

55 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 
,255.255,255.255,255.255,255.255.255.255,255.255,255,255,255,255.255,2 

55 . 255 . 255 . 255 . 255 . 255 . 255 . 255 

200 DRTR255 , 255 , 255 , 255 , 247 , 3 , 1,0, 0,0, 0,0. 0,0. 0.0. 0.0, 0,0, 0.0 
210 DRTRO ,0,0.0.0,0,7,63. 255 . 255 , 255 . 252 , 192.0.0.0.0,1.255.255.255.255 
,254,252,248.240,192.192.225,255,255,255,254.248.224,0,0.0,0,128,128.1 
28, 128,192, 192, 192,224,224,224, 192,192,128, 128,128.135,255,255,255,252 
.240. 128,128. 192.192.192.224 

220 DRTR224, 240, 240, 248, 248, 252, 124,31, 15.7,3, 1.0, 0,0. 0,0, 0,0,0 

230 DRTRO ,0,0,3,31 ,255,255,255,254,240, 128,0,0,0,15,31, 127,252,248,240 

,192.0.0.0,0.0,0.32.240.240.248,248,28.30,15.7.3.1 .0,0, 0,0. 0.0. 0,0, 0,0 


2,224.240,112.62,31.7,7,3 

240 DRTRO ,0,1 28 , 192,192,224,224,192.0,0,0,0.0,15.255,255. 128,0.0,0,0.0 


240,254,254. 14,6,0,0.0.0.0,0,0.0.0.0,0,0,0,0,0,0.0,0,0,0.0,0,0,0.0.0,0 


250 DRTRO, 0,0, 0,0, 0,0, 0.0. 0,0, 0,0, 8, 252. 252, 28. 12.4.0,0,0,0.0.0.0,0,0, 


260 SOUND7 , 1 27 s 0UT248 , 15s IFC INPC 249 JRND239) «47THEN27OELSE260 
270 S0UND7 ,127s SOUND 1 4 . X s S0UND7 . 255 s SOUND 15,0s S0UND1 5 . 1 s RETURN 
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Ausgabe von Tabulatoren größer als 40 auf den Drucker 


Der Basic- Interpreter Ihres Colour-Genie ist so aufgebaut, daß 
Sie an jeder Stelle einer Bildschirmzeile eine Tabul atormarke 
setzen können. 

Analog dazu behandelt der Interpreter den Drucker. 

Beachten Sie aber» 

Eine Bildschirmzeile hat 40 Zeichen. Daher ist das Setzen einer 
Tabulatormarke auf eine Position > 33 mit dem TAB-Befehl auch 
auf dem Drucker nicht möglich. Benutzen Sie in solchen Fällen 

statt: 10 L PR INT TAB CT) ; "Text " 

folgendes: 10 L PR INT STRING$C T-PEEKC 8tH409B) , 32) ; "Text” 

Wie beim TAB-Befehl gilt natürlich auch hier: 

0<= T <=• maximale Zeilenlänge - 1. 

Beachten Sie, daß am Anfang eines Programms, in dem diese Me- 
thode benutzt wird, ein CLEAR Z stehen muß. wobei Z >= Zeilen- 
länge sein muß. Sonst könnte ein OS COut of Stringspace) Error 
auftreten. 
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Interessante ROM-CALL * a 


I« folgenden sind einige nützliche ROM-Rout inen aufgelistet und 
kurz erklärt, die dem Programmierer, der Erfahrung in Maschi- 
nenspracheprogrammierung hat, viel ftrbeit abnehmen können. 

Am besten schaut man sich die Routinen, die beschrieben sind, 
mit dem Disassembler eines Maschinensprache-Monitors an. 

Im übrigen sei erwähnt, daß nur die wichtigsten Routinen auf- 
geführt sind, da in nächster Zeit ein komplettes, dokumen- 
tiertes ROM-Listing zur Verfügung stehen wird. 

0000H System-Kaltstart 

0008H Basic Syntax-Check. Wird über RST 08 aufgerufen 
Das Byte hinter dem RST 08 Code wird mit (HL) 
verglichen. Wenn ungleich dann "?SN Error". 

0018H CP HL, DE . Vergleicht das Doppel regist er DE mit HL. 

HL > DE C=0 Z=0 

HL = DE C=0 Z=1 

HL < DE C=1 Z=0 

002BH INCH. Liest einen Tastendruck in Akku. A*0 keine Taste. 

0033H OUTCH. Gibt den Akkuinhalt als Zeichen auf die aktuelle 

Bildschirmposition in 4020H/4021H aus. Zeichen kleiner 
20H werden als Control -Zeichen akzeptiert (Cursor Home. 
Clear to End of Line usw.) und bei Bedarf wird der 
Bildschirminhalt gescrollt. 

003BH PRTCHR . Gibt das Zeichen in A auf den Drucker aus. 

0040H INLINE. Liest ab HL als Buf fer adresse (norm. 41E8H) 

maximal B Zeichen von der Tastatur ein. Das letzte 
Zeichen ist ODH (RETURN). Bei BREAK ist das Carryflag 
gesetzt. Bei RET steht HL wieder auf Buffer und B ent- 
hält die Zahl der eingegebenen Zeichen. 

0049H Wie INCH, jedoch wird auf Tastendruck gewartet. 

0060H Wartet BC-Registerinhal t * 14.66 jjs . 

0066H Basic-Warmstart . Legt den Bas ic-Stackpointer neu an und 
springt anschließend wieder zum Basic "> READY" . 

01C9H CLS. Löscht Bildschirm über ICH * Cursor Home und 
1FH « Clear to End of Frame Codes. 

01D3H RANDOM. Erzeugt neue RND Werte. 



01E4H Läßt das rechte blinken durch XOR OAH . 

OIEOH Read Byte. Ein Byte über Kassettenport in fl lesen. 

021 FH Write Byte. Akkuinhalt auf Kassettenport schreiben. 

023FH Write Sync . 256 * flflH und einmal 66H auf Kassettenport. 

024CH Read Sync. Wartet auf Synchronistat ion. 

03i4H Liest ein Doppelbyte L SB/MSB von Kassette in HL. 

0A7FH CINT. Überträgt die Basicvar iable X (4121H/4122H) in 
das HL Registerpaar. 

0A9AH Überträgt HL in die Variable X. (An».: X ist eine 

Variable, die vom Basic- Interpreter in den Adressen 
4121H ff. angelegt wird und keine Variable des normalen 
Basic ’s iM) 

OFAFH LINENR. Gibt HL als dez. Zahl ohne Vorzeichen aus (z.B. 
Zei lennummer) . 

1650H ASCII Tabelle der Basic-Tokens . Erstes Byte jeweils »it 
gesetztem Bit 7. Sortiert nach aufsteigenden Tokens. 

1822H Sprungtabelle zu den Tokens. Enthält die Einsprung- 
adressen der entsprechenden Routinen als Doppel bytes. 

2B01H Verwandelt Ausdruck ab (HL) in eine Integerzahl in DE. 

Nachher steht HL auf de» ersten Byte nach de« Ausdruck. 
Dient zur Übernahme von Zahlen oder Ausdrücken in 
Maschinensprache. 

2B1BH Verwandelt Ausdruck ab (HL) in eine Zahl < 256 dez. 

Wert steht hinterher im Akku, sonst wie 2B01H. 

2B75H Print String ab (HL). Bei (HL)-O RET. 

38A9H FGR. Schaltet Bildschirm auf FGR um. 

38B0H L3R . Schaltet auf LGR um. 

38CCH COLOUR n. Wobei n-1 im Akku stehen muß (0...F). 

38DAH FCOLOUR n. Wobei n-1 im Akku stehen muß (0...3). 

3FB0H CHAR n. Schaltet auf CHAR n. Im Akku muß n-1 stehen. 

J} n clrjyg.nJcrT~> c/yf ßtea k - (R ,( J 7c s jcnr> t w h? .CtfLe 
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##* neuer- Ee i cherisa te *#* 


Hel Sie der eingebaute Ee i chensa tE ihres 
Cal nur— Genie auch schon einmal gelang— 
weilt? Dann geben Sie mit dem “Basic- 
nonitör" oder einem anderen Ranitar das 
nachfolgende HeK-Listing ein (Die Pruef— 
suninen am Ende jeder Geile werden nicht 
mit e ingegeben >. Bevor Sie jedach den 
Flanitor laden» muessen Sie bei RER 5 1 GE 
den Uert 3 l S3b eingeben» um das Pragramm 
eu schuetEEn. nachdem Sie das Programm 
eingegeben und alle Pruefsummen vergli- 
chen haben» schreiben Sie alles mit dem 
U-Befehl auf Kassette- U1CCB 3FFF 1C0E . 
Dann kaennen Sie das Ee t chensa tepragr amm 
mit G~1CDE starten. Gun werden alle BSC l l 
Gei eben in der neuen Schrift ausgegeben. 
Da die neue 5chrift mit den definierba- 
ren Ee i chen ereeugt wird» duerfen Sie 
nur die Ge i chen l GB bis l 5S umdefinieren 
und muessen immer auf CHRP l bleiben. 

Den normalen Bei chensa te kaennen Sie 
weiter-t, in dar stellen» indem Sie den Wert 
des Ge i chens in den Bildschirm PGKEn . 


Erklärung der Funktionsweise des Programms 
Nach dem im folgenden abgedruckten Hex-Listing des Programmes, 
rinden Sie ein disassembl ier tes Listing der Routine, die den 
neuen Zeichensatz initialisiert. 

Bei 7CD2H werden HL, DE und BC für einen Transfer eines kleinen 
Programms von 7CC0H bis 7CD1H nach 43A0H vorbereitet. Dieses 
kleine Programm wird Uber den PRINT-DCB CDevice-Control -Block) 
angesprungen, dessen Zeiger nach 43A0H 'verbogen' wird. 

Wenn das Programm angesprungen wird, steht im C-Register des 
Z-80 der Wert des auszugebenden RSC I I -Zeichens . 

Wenn er kleiner als 20H oder größer als 7FH ist, bleibt er er- 
halten. Rndernfalls wird 80H dazuaddiert, d.h. aus dem Zeichen 
'!' daß den ASCII-Code 21H hat wird also in A1H umgewandelt, 
während z.B. ein Cursor-Home-Code ICH als ICH erhalten bleibt, 
damit der Basic- Interpreter ihn noch erkennt. 

Bei 7CDDH wird der PRINT-DCB nach Rdresse 43R0H verbogen. 

Der OCB ist eine Doppelbyte-Adresse. die vom Basic-Interpreter 
im RAM abgelegt wird. Normalerweise zeigt sie auf eine ROM- 
Adresse (hier 30E4H) . kann aber bei bedarf geändert werden. 

Man kann also den Basic-Interpreter dazu veranlassen, bei einer 
Zeichenausgabe in ein eigenes Programm zu verzweigen. 

Die Adressen der DCB's sind folgende: 

401EH = Oisplay 4016H = Keyboard 4026H = Printer 

Anschließend werden bei Adresse 7CE3H HL, DE und BC für den 
Transfer des Zeichensatzes von 7D00H bis 7FFFH nach F500H 
vorbelegt. Nach dem Transfer mit LDIR wird noch der Zeichensatz 
CCHARn) über die ROM-Routine bei 3FB0H geändert. Im A-Register 
steht dabei der CHAR-Wert minus eins. Für CHAR l also 0, was 
hier über XOR A erreicht wird. Zuletzt folgt ein Sprung zum 
BASIC-Warmstart bei Adresse 0066H . Von nun an werden alle 
Zeichen im Bereich zwischen 20H und 7 FH «u f AOH bis FFH erhöht. 
Wenn Sie wollen können Sie die Zeichen natürlich auch noch 
abändern. z.B. mit Hilfe eines Zeicheneditors. 
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7CC0 F5 79 FE 20 38 07 FE 80 
7CC8 30 03 C6 80 4F Fl C3 E4 
7CD0 30 00 21 CO 7C 11 (=10 43 
7CD8 01 11 00 ED BO 21 AO 43 
7CE0 22 IE 40 21 00 7D 11 00 
_7CE8 F5 01 00 03 ED BO AF CD 
7CF0 BO 3F C3 66 00 00 00 00 
7CF8 OO 00 00 00 00 00 00 00 
7D00 00 00 00 00 00 00 00 00 
7D08 18 18 18 18 18 00 18 00 
7D10 24 24 24 00 00 00 00 00 
7D18 24 24 7E 24 7E 24 24 00 
7D20 18 7E 40 7E 02 7E 18 00 
7D28 60 66 OC 18 30 66 06 00 
7D30 30 48 48 30 6A 64 3A 00 
7038 18 18 18 00 00 00 00 00 
7D40 OC 18 30 30 30 18 OC 00 
7048 30 18 OC OC OC 18 30 00 
7050 18 5A 3C 18 3C 5A 18 00 
7D58 00 18 18 7E 18 18 00 00 
7D60 00 00 00 00 18 18 30 00 
7D68 00 00 00 7E 00 00 00 00 
7D70 00 OO 00 00 00 18 18 00 
7078 00 04 08 10 30 60 OO 00 
7D80 7C 44 4C 54 62 62 7E 00 
7D88 10 10 10 10 18 18 18 00 
7090 7C 04 04 7C 60 60 7E 00 
7D98 7C 04 04 IE 06 06 7E 00 
7DA0 42 42 42 7E 06 06 06 00 
7DA8 7E 40 40 7E 06 06 7E 00 
-7DB0 40 40 40 7E 62 62 7E 00 
7DB8 7E 02 02 02 06 06 06 00 
7DC0 7C 44 44 3C 62 62 7E 00 
7DC8 7E 42 42 7E 06 06 06 00 
7DD0 00 00 18 00 18 00 00 00 
7008 00 00 18 00 18 18 30 00 
7DE0 OC 18 30 60 30 18 OC 00 
7DE8 00 00 7E 00 7E 00 00 00 
7DF0 60 30 18 OC 18 30 60 00 
7DF8 3C 66 06 OC 18 00 18 OO 
7EOO 7E 42 5E 4C 60 62 7E 00 
7E08 7E 42 42 7E 62 62 62 00 
7E10 7E 42 42 7C 62 62 7E OO 
7E18 7E 42 40 40 60 62 7E 00 
7E20 7C 46 42 42 62 66 7C 00 
7E28 7E 40 40 78 60 60 7E 00 
7E30 7E 40 40 78 60 60 60 00 
7E38 7E 42 40 4E 62 62 7E 00 
7E40 42 42 42 7E 62 62 62 00 
7E48 10 10 10 10 18 18 18 00 
7E50 7E 42 02 02 06 46 7E 00 
7E58 42 44 48 78 64 62 62 00 
7E60 40 40 40 40 60 60 7E 00 
7E68 76 4A 4A 42 62 62 62 00 
7E70 72 4A 4A 46 62 62 62 00 
7E78 7E 42 42 42 62 62 7E 00 
7E80 7E 42 42 7E 60 60 60 00 
7E88 7E 42 42 42 6A 64 7A 00 
7E90 7E 42 42 7E 68 64 62 00 
7E98 7E 42 40 7E 06 46 7E 00 
7EA0 7E 52 10 10 18 18 18 00 
7EA8 42 42 42 42 62 62 7E 00 


49 

60 

81 

B3 

2F 

12 

18 

00 

00 

90 

6C 

BO 

EC 

86 

F8 

48 

D8 


j 

I 

i 

i 


t 

j 


74 

DE 

60 

7E 

30 

AC 

A2 

88 1 


3E 

2C 

56 

06 

80 

96 

82 


i 

I 

i 


92 

30 

78 

08 

FC 

5C 

E4 

AA 

A6 

CO 

80 

8A 

B4 

96 

90 

6A 


I 

I 


88 


8E 

6E 

3E 

72 

72 

86 

AO 

8C 

AE 

48 


4A 
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7EB0 42 42 42 42 64 68 30 00 
7EB8 42 42 42 42 68 68 34 00 
7EC0 42 42 2C 10 2C 62 62 00 
7EC8 42 42 2C 10 18 18 18 00 
7ED0 7E 42 02 7E 60 62 7E 00 
7ED8 3C 30 30 30 30 30 30 00 
7EE0 00 60 30 18 0C 06 OO 00 
7EE8 3C OC OC OC OC OC 3C 00 
7EF0 00 32 4C 00 00 00 00 00 
7EF8 00 00 00 00 00 00 7E 7E 
7F00 08 18 30 00 00 00 00 00 
7F08 00 00 78 46 62 62 7E 00 
7F10 40 40 7E 42 62 62 7E 00 
7F18 00 00 7E 40 60 60 7E 00 
7F20 02 02 7E 42 62 62 7£ 00 
7F28 00 00 7E 42 7E 60 7E 00 
7F30 OC 10 38 10 18 18 18 00 
7F38 OO 00 78 46 62 7E 02 7E 
7F40 40 40 7C 42 62 62 62 00 
7F48 10 00 10 10 18 18 18 00 
7F50 08 00 08 08 18 18 18 70 
7F58 40 40 44 48 70 68 64 00 
7F60 10 10 10 10 18 18 18 00 
7F68 00 00 7C 48 68 68 6A 00 
7F70 00 00 7C 42 62 62 62 00 
7F78 00 00 7E 42 62 62 7E 00 
7F80 00 00 7E 42 62 7E 40 40 
7F88 00 00 7E 42 62 7E 02 02 
7F90 00 00 7C 42 60 60 60 00 
7F98 00 00 7E 40 7E 06 7E 00 
7F80 10 10 38 10 18 18 18 OE 
7F88 00 00 42 42 62 62 7E 00 
7FB0 00 00 42 42 64 68 30 00 
7FB8 00 00 42 42 68 68 34 00 
7FC0 OO 00 42 4C 30 6C 62 00 
7FC8 00 00 42 42 62 7E 02 7E 
7F00 00 00 7E 02 7E 60 7E 00 
7FD8 OC 18 18 30 18 18 OC 00 
7FE0 18 18 18 00 18 18 18 00 
7FE8 30 18 18 OC 18 18 30 00 
7FF0 00 18 3C 66 00 00 00 00 
7FF8 FF FF FF FF FF FF FF FF 


04 

10 

BO 

08 

80 

68 

B8 

B4 

7E 

FC 

50 

02 

82 

FC 

06 

IC 

8C 

20 

64 

78 

DO 


04 

E4 

02 

20 

84 

DE 

CO 

BE 

C6 

80 

8C 

8C 

E4 

OC 

88 

90 

CC 

BA 

F8 
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7CC0 FS U PUSH HF 

7CC 1 79 y LD A,C 

7CC2 FE20 ß CP 20H 

7CC4 3807 8 0R C.1+09H 

7CC6 FE80 ß CP 80H 

7CC8 3003 0 3R NC . J+05H 

7CCR C680 F RDD A.80H 

7CCC 4F O LD C.A 

7CCD Fl q POP RF 

7CCE C3E430 CdO DP 30E4H 

7CD1 00 NOP 

7CD2 21C07C ' §ö LD HL . 7CC0H 

7CD5 1 1R043 C LO D£,43A0H 

7CD8 011100 LD BC,0011H 

7CDB EDBO mO LDIR 

7CD0 21R043 ' C LD HL , 43R0H 

7CE0 221E40 " § LD C401EHKHL 

7CE3 21007D i U LD HL.7D00H 

7CE6 HOOFS u LD DE.0F500H 

7CE9 010003 LD BC.0300H 

7CEC EDBO laO LDIR 

7CEE AF / XOR A 

7CEF CDB03F MO'* CALL 3FB0H 

7CF2 C 36600 Cf DP 0066H 
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Ein Screen-Pr inter 


Sicher haben Sie sich gefragt, wie die vielen Bi Idschirmaus- 
drucke, die in diesem Buch zu finden sind, erzeugt wurden. 

Das folgende Maschinenspracheprogramm erzeugt einen solchen 
Bildschirmausdruck auf dem STAR DP 510/515. Dabei sind sowohl 
Ausdrucke von Texten, als auch von FGR-Grafiken möglich. 
Außerdem erkennt das Programm, welcher Zeichensatz für die 
Zeichen von 128 bis 255 angewählt wurde. 

Nach dem Einschalten Ihres Rechners geben Sie als MEM SIZE 
46330 ein.* Dann laden Sie den "Basic-Monitor" (oder jeden ande- 
ren Monitor, sofern dieser nicht die Adressen über B500H be- 
legt! und geben das Programm mit dem E-Befehl ein. Wenn Sie 
sicher sind, daß Sie alles fehlerfrei eingegeben haben, schrei- 
ben Sie den Screen-Pr inter mit dem Befehl WB500 BFFF BE40 auf 
Kassette. Zum Schluß geben Sie eins , 

GBE40 . 

Der Screen-Pr inter meldet sich mit: 

<SCRE£N PRINTER» 

(c) 1983 von TCS 

C OL OUR BASIC 
READY 


Nun können Sie jederzeit durch Druck auf die Tasten <CTRL> und 
<P> einen Ausdruck des Bildschirms machen. Da dieses Programm 
den Tastatur-DCB anzapft, funktioniert das Programm immer, 
solange es nicht Uberschr ieben wird oder die Tast atur-Treiber- 
Adresse verändert wird. 

Hier nun ein Hex-Dump (mit Prüfsummen) des Screen-Pr inter : 


(Für dieses Programm muß Ihr Colour-Genie auf 32 K RAM erweitert sein.) 


B500 

B508 

B510 

B518 

B520 

B528 

B530 

B538 

B540 

B548 

B550 

B558 

B560 

B568 

B570 

B578 

B580 

B588 

B580 

B598 

B5A0 

B5B8 

BSBO 

B5B8 

B5C0 

B5C8 

B5D0 

B5D8 

B5E0 

B5E8 

B5F0 

B5F8 

B600 

B608 

B610 

B618 

B620 

B628 

B630 

B638 

B640 

B648 

B650 

B658 

B660 

B668 

B670 

B678 

B880 

B688 

B69Ö 

B698 

B6A0 

B6R8 

B6B0 

B6B8 

B6C0 

B6C8 

B6DO 

B6D8 


30 FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FF FF FF FF FF 
00 00 00 00 00 
10 10 10 10 10 
28 28 28 00 00 
28 28 7C 28 7C 
10 3C 50 38 14 
80 64 08 10 20 
20 50 50 20 54 
10 10 10 00 00 
08 10 20 20 20 
20 10 08 08 08 
10 54 38 10 38 
00 10 10 7C 10 
00 00 00 00 10 
OO 00 00 7C 00 
00 00 00 00 00 
00 04 08 10 20 
38 44 4C 54 64 
10 30 10 10 10 
38 44 04 38 40 
7C 04 08 18 04 
18 28 48 7C 08 
7C 40 78 04 04 
IC 20 40 78 44 
7C 04 04 08 1 0 
38 44 44 38 44 
38 44 44 3C 04 
00 00 10 00 10 
00 00 10 00 10 


FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
00 00 
00 10 
00 00 
28 28 
78 10 
4C OC 
48 34 
00 00 
10 08 
10 20 
54 10 
10 00 
10 20 
00 00 
00 10 
40 00 
44 38 
10 10 
40 7C 
44 38 
08 08 
44 38 
44 38 
20 40 
44 38 
08 70 
00 00 
10 20 


FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


29 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
F8 
00 
60 
78 
CO 
70 
54 
BO 

30 
90 
78 
48 
BC 
40 
7C 
10 
7C 
FC 
90 
B4 
20 
IC 
B8 
B4 
FC 
B8 
78 
20 
50 


*1 


84 


I. 


B6E0 08 10 20 
B6E8 00 00 7C 
B6F0 20 10 08 
B6F8 38 44 04 
B700 38 44 54 
B708 10 28 44 
B710 78 44 44 
B718 38 44 40 
B720 78 44 44 
B728 7C 40 40 
B730 7C 40 40 
B738 38 44 40 
B740 44 44 44 
B748 38 10 10 
B750 7C 04 04 
B758 44 48 50 
B760 40 40 40 
B768 44 6C 54 
B770 44 64 54 
B778 38 44 44 
B780 78 44 44 
B788 38 44 44 
B790 78 44 44 
B798 38 44 40 
B7A0 7C 54 10 
B7B8 44 44 44 
B7B0 44 44 44 
B7B8 44 44 44 
B7C0 44 44 28 
B7C8 44 44 28 
B7D0 70 44 08 
B7D8 78 60 60 
B7E0 00 40 20 
B7E8 3C 00 OC 
B7F0 10 28 44 
B7F8 00 00 00 
B800 20 10 08 
B808 00 00 38 
B810 40 40 78 
B818 00 00 38 
B820 04 04 3C 
B828 00 00 38 
B830 18 20 70 
B838 00 00 3C 
B840 40 40 78 
B848 10 00 30 
B850 08 00 08 
B858 40 40 48 
B860 30 10 10 
B868 00 00 68 
B870 00 00 58 
B878 00 00 38 
B880 00 00 78 
B888 00 00 3C 
B890 00 00 58 
B898 00 00 3C 


40 20 10 08 00 
00 7C 00 00 00 
04 08 10 20 00 
08 10 00 10 00 
5C 58 40 3C 00 
44 7C 44 44 00 
78 44 44 78 00 
40 40 44 38 00 
44 44 44 78 00 
70 40 40 7C 00 
70 40 40 40 00 
5C 44 44 38 00 
7C 44 44 44 00 
10 IO 10 38 00 
04 04 44 38 00 
60 50 48 44 00 
40 40 40 7C 00 
54 44 44 44 00 
40 44 44 44 00 
44 44 44 38 00 
78 40 40 40 00 
44 54 48 34 00 
78 50 48 44 00 
38 04 44 38 00 
10 10 10 10 00 
44 44 44 38 00 
28 28 10 10 00 
54 54 54 28 00 
10 28 44 44 00 
10 10 10 10 00 
10 20 44 7C 00 
60 60 60 78 00 
10 08 04 00 00 
OC OC OC 3C 00 
OO 00 00 00 00 
00 00 00 00 7C 
00 00 00 00 00 
04 3C 44 3C 00 
44 44 44 78 00 
44 40 44 38 00 
44 44 44 3C 00 
44 7C 40 38 00 
20 20 20 20 20 
44 44 3C 04 38 
44 44 44 44 00 
10 10 10 38 00 
08 08 08 48 30 
50 60 50 48 00 
10 10 10 38 00 
54 54 54 54 00 
64 44 44 44 00 
44 44 44 38 00 
44 44 78 40 40 
44 44 3C 04 04 
60 40 40 40 00 
40 38 04 78 00 


BO 

F8 

74 

A8 

00 

C4 

78 

B8 

44 

68 

2C 

D8 

14 

CO 

08 

18 

FC 

24 

14 

C4 

38 

D4 

54 

74 

20 

DO 

3C 

FO 

70 

FO 

B8 

DO 

7C 

B4 

7C 

7C 

38 

F8 

3C 

38 

4C 

70 

48 

3C 

08 

A8 

BO 

10 

B8 

B8 

88 

3C 

F8 

08 

78 

30 


( 


85 



B8A0 
B8A8 
B8B0 
B8B8 
B8C0 
B8C8 
B8D0 
B8D8 
B8E0 
B8E8 
B8F0 
B8F8 
B900 
B908 
B910 
B918 
B920 
B928 
B930 
B938 
B940 
B948 
B950 
B958 
B960 
B968 
B970 
B978 
B980 
B988 
B990 
B998 
B9A0 
B9A8 
B9B0 
B9B8 
B9C0 
B9C8 
B9D0 
B9D8 
B9E0 
B9E8 
B9F0 
B9F8 
BAOO 
BPI 08 
BA10 
BAI 8 
BA20 
BA28 
BA30 
BA38 
BA40 
BA48 
BA50 
BA58 


10 10 38 10 10 
00 00 44 44 44 
00 00 44 44 44 
00 00 44 44 54 
00 00 44 28 10 
00 00 44 44 44 
00 00 7C 08 10 
18 20 20 40 20 
10 10 10 00 10 
30 08 08 04 08 
00 00 32 4C 00 
FF FF FF FF FF 
FF FF FF 07 07 
FF FF FF EO EO 
07 07 07 07 07 
EO EO EO EO EO 
IC IC FC FC FC 
38 38 3F 3F 3F 
3C 3C 3C FF FF 
00 00 FF FF FF 

00 00 FF FF FF 
80 80 80 80 80 

01 01 01 01 01 
FF 00 00 00 00 
00 00 00 00 00 
FF 81 81 81 81 
38 38 38 38 38 
00 00 00 18 18 
3C 3C 3C 3C 3C 
00 00 FF FF FF 
FC FC CO CO CO 
3F 3F 3F 3F 03 
CO CO 30 3C 3C 
03 03 OC 3C 3C 
CO CO FO FO FO 
03 03 OF OF OF 
00 00 3C 3C 3C 
OC OC 3C 3C 3C 
00 00 FC FC 3F 
CO CO CO CO CO 
03 03 03 03 3F 
00 00 18 18 3C 
C3 C3 3C 3C 18 
00 00 00 00 3C 
FF FF 3C 3C 00 
13 7E 7E 7E 7E 
FF FF CO CO CO 
3C 3C 3C 3C 3C 
FF FF C3 C3 C3 
C3 C3 C3 C3 C3 
3C 3C FF FF 3C 
24 24 24 E7 E7 
C3 C3 C3 C3 C3 
FF FF FF FF FF 
18 18 FF FF FF 
CO CO CO CO CO 


10 10 
4C 34 
28 10 
54 28 
28 44 
3C 04 
20 7C 
20 18 
10 10 
08 30 
00 00 
FF FF 
07 07 
EO EO 
FF FF 
FF FF 
FC IC 
3F 38 
FF 00 
3C 3C 
00 00 
80 80 
01 01 
00 00 
00 00 
81 81 
38 38 
00 00 
3C 3C 
FF 00 
CO CO 
03 03 
30 CO 
OC 03 
FO CO 
OF 03 
3C 00 
3C 30 
3F 00 
FC FC 
3F 3F 
3C C3 
18 00 
3C FF 
00 00 
7E 7E 
CO FF 
3C 3C 
C3 C3 
C3 FF 
3C 3C 
24 24 
C3 C3 
FF 18 
FF FF 
CO CO 


08 

00 

00 

00 

00 

38 

00 

00 

00 

00 

00 

FF 

07 

EO 

FF 

FF 

IC 

38 

00 

3C 

00 

80 

01 

00 

FF 

FF 

38 

00 

3C 

00 

CO 

03 

CO 

03 

CO 

03 

00 

30 

00 

FC 

3F 

C3 

00 

FF 

00 

00 

FF 

3C 

C3 

FF 

3C 

24 

C3 

18 

FF 

CO 


AO 

4C 

04 

58 

E8 

44 

30 

FO 

60 

84 

7E 

F8 

20 

5D 

20 

5D 

60 

DC 

Bl 

Bl 

FD 

00 

08 

FF 

FF 

04 

CO 

30 

EO 

FC 

78 

08 

08 

9C 

CO 

48 

FO 

68 

76 

B4 

08 

2E 

2E 

76 

76 

07 

FC 

EO 

90 

90 

66 

A6 

18 

2A 

2A 

OO 


I 


f 
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BA60 FF FF 03 03 03 03 FF FF 08 

BA68 FF FF F0 FO FO FO OF OF DC 

BA70 OF OF FO FO FO FO FO FF CD 

BA78 FC FC FC FC C3 C3 C3 C3 FC 

BA80 C3 C3 C3 C3 FC FC FC FC FC 

BA88 FC FC FC FC FC FC FC FC EO 

BA90 C3 C3 C3 C3 3F 3F 3F 3F 08 

BA98 1F 1F 1F 1F 63 63 63 63 08 

BAAO 00 00 00 00 00 00 FF FF FE 

BAA8 FF FF 00 00 00 00 00 00 FE - 

BABO 03 03 03 03 03 03 03 03 18 

BAB8 FF 81 BD A5 A5 BD 81 FF C4 

BACO E7 66 66 66 FF FF FF FF 16 

BAC8 C3 C3 3C 3C 3C C3 C3 00 CO 

BADO 18 18 18 18 18 18 18 18 CO 

BADS 00 00 00 00 00 00 F8 F8 FO 

BAEO 00 00 00 00 OO 00 1F 1F 3E 

BAE8 OF OF OF OF 00 00 00 00 3C 

BAFO 00 00 00 00 FO FO FO FO CO 

BAF8 FO FO 00 00 00 00 00 00 EO 

BBOO 18 66 FF 18 24 42 81 81 FD 

BB08 00 FF 00 FF 00 FF 00 FF FC 

BB10 18 18 18 FF FF 18 18 18 8E 

BB 18 CC CC 33 33 CC CC 33 33 FC 

BB20 AA 55 AA 55 AA 55 AA 55 FC 

BB28 C3 66 3C 18 3C 66 C3 81 63 

BB30 36 7F 7F 7F 3E 3E IC 08 53 

BB38 81 C3 DB E7 DB C3 81 00 25 

BB40 08 IC 3E 7F 7F 36 08 3E OC 

BB48 08 IC IC 2A 7F 2A 08 3E 59 

B850 FF FF FF FF FF FF FF FF F8 

BB58 33 33 33 33 33 33 33 33 98 

BB60 49 49 49 49 49 49 49 49 48 

BB68 01 03 07 OF IF 3F 7F FF F6 

BB70 FF FF 00 00 FF FF 00 00 FC 

BB78 CO CO CO CO CO CO CO CO 00 

BB80 00 00 FF FF 00 00 FF FF FC 

BB88 FF FF FF FF 00 00 00 OO FC 

BB90 00 00 00 00 FF FF FF FF FC 

BB98 FF FF 00 00 00 00 00 00 FE 

BBAO OF OF OF OF OF OF OF OF 78 

BBA8 FO FO FO FO FO FO FO FO 80 

BBBO FO FO FO FO OF OF OF OF FC 

BBB8 FF 00 FF 00 FF 00 FF 00 FC 

BBCO 92 92 92 92 92 92 92 92 90 

BBC8 00 00 00 FF FF 00 00 00 FE 

BBDO 00 00 00 00 00 00 FF FF FE 

BBD8 03 03 03 03 03 03 03 03 18 

BBEO 04 08 11 22 44 88 10 20 3B 

BBE8 CC CC CC CC CC CC CC CC 60 

BBFO 20 10 88 44 22 11 08 04 3B 

BBF8 01 03 06 OC 18 30 60 CO 76-* 

BCOO 80 CO EO FO F8 FC FE FF 01 

BC08 18 18 18 18 18 18 18 18 CO 

BC10 FF FE FC F8 FO EO CO 80 01 

BC 18 CO 60 30 18 OC 06 03 01 7E 


87 



BC20 FF 7F 3F 1F OF 07 03 01 F6 
BC28 FF FF 7E 3C 00 00 00 00 B8 
BC30 3C 7E FF FF FF FF 7E 3C 70 
BC38 98 99 99 99 99 5fl 3C 18 AB 
BC40 18 3C 5A 99 18 18 18 18 (=17 
BC48 FF 81 81 99 99 81 81 FF 34 
BC50 CO CO 00 18 18 00 03 03 B6 
BC58 3C 7E C3 C3 C3 C3 7E 3C 80 
BC60 00 00 00 00 OF 08 08 08 27 
BC68 00 00 00 00 FO 10 10 10 20 
BC70 07 OF 1F 1F 1F 1F OF 07 A8 
BC78 08 08 08 OF 00 00 00 00 27 
BC80 10 10 10 FO 00 00 00 00 20 
BC88 E7 24 24 3C 66 C3 81 81 96 
BC90 08 IC 3E 7F 7F 3E IC 08 C2 
BC98 24 42 A5 18 18 A5 42 24 46 
BCAO 00 00 00 3C 7E FF FF FF B7 
BCA8 EO FO F8 F8 F8 F8 FO EO 80 
BCBO 00 00 00 18 18 00 00 00 30 
BCB8 00 66 66 00 00 66 66 00 98 
BCCO FF C3 81 81 81 81 C3 FF 88 
BCC8 C3 C3 00 18 18 00 C3 C3 3C 
BCOO 66 FF FF 66 66 FF FF 66 94 
BCD8 18 18 18 18 99 5A 3C 18 A7 
BCEO 00 00 18 18 00 18 18 00 60 
BCE8 10 20 40 FF FF 40 20 10 DE 
BCFO 66 66 00 66 66 00 66 66 64 
BCF8 08 04 02 FF FF 02 04 08 1A 
BDOO DO 21 00 B5 21 IC 43 FE 31 
BD08 80 38 16 FE CO 38 OA CB 99 
BD10 5E 20 04 DD 21 00 FO 18 88 
BDI 8 08 CB 66 20 04 DD 21 00 5B 
BD20 FO 6F 26 00 29 29 29 EB EB 
BD28 00 19 21 00 42 11 01 42 AD 
BD30 01 08 00 36 00 ED BO 06 E2 
BD38 08 16 80 C5 21 07 42 06 D3 
BD40 08 IE 01 DD 7E 00 A3 28 4D 
BD48 03 7A B6 77 CB 03 2B 10 B3 
BD50 F2 CI CB OA DD 23 10 E3 7B 
BD58 C9 00 00 00 00 00 00 00 C9 
BD60 21 00 44 3A F9 42 47 C5 E6 
BD68 3E 1B CD CO BD 3E 4B CD F9 
BD70 CO BD 3E 50 CD CO BD 3E 93 
BD78 00 CD CO BD 06 50 CD CO 2D 
BD80 BO 10 FB 06 28 7E C5 D5 OE 
BD88 E5 CD 00 BD 3E 1B CD CO 55 
BD90 BD 3E 4B CD CO BD 3E 08 06 
BD98 CD CO BD 3E 00 CD CO BD 02 
BDAO 06 08 21 00 42 7E CD CO 7C 
BDA8 BD 23 10 F9 E 1 Dl CI 23 7F 
BDBO 10 D3 3E OO CD CO BD CI 39 
BDB8 05 C2 67 BD C9 00 00 00 B4 
BDCO F5 3E 07 D3 F8 3E 7F D3 95 
BDC8 F9 3E OF D3 F8 DB F9 E6 CB 
BDDO EF FE 2F 20 EC 3E 07 D3 40 
BDD8 F8 3E 7F D3 F9 3E OE D3 AO 
BDEO F8 Fl D3 F9 F5 3E 07 D3 C2 


BDE8 F8 3E 
BOFO F8 3E 
BDF8 F8 3E 
BE 00 3E 1B 
BE08 CO BD 
BE 10 60 BD 
BE 18 38 04 
BE 20 E5 OD 
BE28 IC 43 
BE 30 00 BF 
BE38 E5 21 
BE40 21 38 
BE48 BF CD 
BE50 02 01 
BE58 00 00 
BE60 DD 21 
BE68 C5 06 
BE70 00 E6 
BE78 OF CD 
BE80 30 OF 
BE88 DD 7E 
BE 90 CC BE 
BE98 CC BE 
BEAO 4B CD 
BEA8 BO 3E 
BEBO OC 21 
BEB8 23 10 
BECO CI 3E 
BEC8 C9 00 
BEOO 00 23 
BED8 C9 FE 
BEEO 36 80 
BEE8 02 20 
BEFO 23 36 
BEF8 36 FO 
BFOO 3E 1B 
BF08 CO BD 
BF 10 60 BE 
BF18 00 00 
BF20 3C 53 
BF28 50 52 
BF30 OD 28 
BF38 33 20 
BF40 53 OD 
BF48 00 00 
BF50 00 00 
BF58 00 00 
BF60 00 00 
BF68 00 00 
BF70 00 00 
BF78 00 00 
BF80 00 00 
BF88 00 00 
BF90 00 00 
BF98 00 00 


FF 03 F9 3E 

00 03 F9 3E 

01 D3 F9 Fl 
CD CO BD 3E 
3E 08 CD CO 
3A 80 F8 FE 
F8 FE 01 CO 
E5 21 32 BE 
CB 6F C8 00 
DD El El Dl 
£3 03 E3 C3 
BE 22 16 40 
87 28 21 00 
00 00 00 00 
00 00 00 00 
00 48 38 12 
28 21 00 42 
CO OF OF OF 
CC BE DD 7E 
OF OF OF CD 
00 E6 OC OF 
DD 7E 00 E6 
3E 1B CD CO 
CO BD 3E OC 
00 CD CO BO 
00 42 7E CD 
F9 CI DD 23 
OD CD CO BO 

00 00 B7 20 
36 00 23 36 

01 20 Oft 36 
23 36 ftO 23 
Oft 36 50 23 
50 23 C9 36 
23 36 FO 23 
CD CO BD 3E 
3E 04 CD CO 
00 00 00 00 
00 00 00 00 
43 52 45 45 
49 4E 54 45 
63 29 20 31 
76 6F 6E 20 
OD 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 


OF 03 21 
OF D3 22 
C9 00 BD 
41 CD EF 
BD C3 DO 
10 CO 90 
C5 D5 8F 
E5 38 D7 
BE C3 E4 
CI C9 B9 
12 BE 62 
21 20 DO 
B5 C3 F4 
00 00 03 
00 00 00 
43 47 IC 
DD 7E Bl 
OF OF Fl 
00 E6 87 
CC BE C3 
OF CD 38 
03 CD 9B 
BD 3E 6B 
CD CO 6C 
C5 06 10 
CO BD 37 
10 8B 88 
10 ftO 06 
Oft 36 EO 
00 23 05 
80 23 EB 
C9 FE B9 
36 AO AB 
FO 23 DE 
C9 00 5B 
41 CD EF 
BD C3 CC 
00 00 iE 
00 00 00 
4E 20 IC 
52 3E 62 
39 38 83 
54 43 5D 
00 00 6D 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
OO 00 00 
00 00 00 
00 00 00 
00 00 00 



BFAO 00 00 00 00 00 00 00 00 00 
BFA8 00 00 00 00 00 00 00 00 00 
BFBO 00 00 00 00 00 00 00 00 00 
BFB8 00 00 00 00 00 00 00 00 00 
BFCO 00 00 00 00 00 00 00 00 00 
BFC8 00 00 00 00 00 00 00 00 00 
BFDO 00 00 00 00 00 00 00 00 00 
BFD8 00 00 00 00 00 00 00 00 00 
BFEO 00 00 00 00 00 00 00 00 00 
BFE8 00 00 00 00 00 00 00 00 00 
BFFO 00 00 00 00 00 00 00 00 00 
BFF8 00 00 00 00 00 00 00 00 00 
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Anhang 

1 £8 

As _ 

T 

Basi c Einf 5 
END 

ich t ok er s 

1 29 P 

FOR 

1 30 

J 

RESET 

131 

L 

SET 

1 3£ 

H 

CLS 

1 33 

► 

CMD 

1 34 

A 

RANDOM 

1 35 

* 

NEXT 

1 36 

— 

DATA 

1 37 

!_ 

INPUT 

1 38 

1 

D IM 

1 39 


READ 

1 40 


LET 

141 

□ 

GOTO 

1 42 

T 

RUN 

1 43 


IF 

1 44 

i 

RESTORE 

1 45 

m 

GOSUB 

1 46 

r 

RETURN 

1 47 


REM 

1 48 

> 

STOP 

1 49 

< 

ELSE 

1 50 

¥ 

TRON 

1 5 1 

i 

TROFF 

1 5£ 

■ 

DEFSTR 

153 

t 

DEFINT 

1 54 

-a. 

DEFSNG 

1 55 

L 

DEFDBL 

1 56 

J 

LINE 

1 57 

A 

EDIT 

1 58 

V 

ERROR 

1 59 

•a. 

RESUME 

1 60 

•w 

OUT 

1 6 1 

m 

ON 

1 62 

c 

OPEN 

1 63 

1 

FIELD 

1 64 

n 

SET 

165 

u 

PUT 

1 66 

* 

CLOSE 

1 67 

hi- 

LOAD 

1 68 

ii 

MERGE 

1 69 

* 

NAME 

1 70 

* 

KILL 

171 

i 

LSET 

1 72 

□ 

RSET 

1 73 


SAVE 

1 74 

£ 

SYSTEM 

1 75 

ft 

LPRINT 

176 

V 

DEF 

1 77 

■ 

POKE 

1 78 

U 

PRINT 

1 79 

fl 

CONT 

1 80 

__ 

LIST 

1 81 

— 

LL IST 

1 82 

| 

DELETE 

1 83 

m 

AUTO 

1 84 

u 

CLEAR 

1 85 

X 

CLOAD 

1 86 

1 

CSAVE 

1 87 

_ 

NEW 

1 83 


T A B < 

1 89 

■ 

TO 

1 90 

■ 

FN 

191 

■ 

US ING 

1 92 

ft 

VARPTR 

1 93 

= 

USR 

1 94 

+ 

ERL 

1 95 

s 

ERR 

1 96 

m 

STRINGS 

1 97 

X 

INSTR 

1 98 

* 

CHECK 

1 99 

w 

TIME* 

£00 

* 

MEM 

£0 1 

4 

IHKEYS 

£02 

■ 

THEN 

203 

II 

NOT 

£04 

m 

STEP 

£05 

Ä 

+ 

206 


- 

£07 

1 

* 

£08 

— 

s 

209 


[ 

El 0 

■■ 

AND 

21 1 


OR 

£1 £ 

i 

> 

213 

1 

= 

21 4 

\ 

< 

£15 

= 

SGN 

£16 

in 

INT 

£1 7 

— 

ABS 

£18 

_ 

FRE 

£19 

1 

I NP 

£20 


POS 

£21 

II 

SQR 

£2£ 


RND 

£23 

✓ 

LOG 

£24 

k 

EXP 

225 

1 

COS 

£26 

r 

SIN 

227 

\ 

TAN 

£28 


ATN 

£29 

w 

PEEK 

£30 

• 

CVI 

£31 


CVS 

£32 

y 

CVD 

233 

□ 

EOF 

£34 


LOC 

£35 

o 

LOF 

236 

r 

MKI $ 

237 


MKS* 

£38 

i 

MKD* 

£39 

*- 

CINT 

£40 


CSNG 

24 1 

X 

CDBL 

£42 

♦ 

FIX 

£43 


LEN 

244 

* 

STR* 

£45 

> 

VAL 

£46 


ASC 

247 

:: 

CHR* 

£48 

□ 

LEFT* 

249 


RIGHT* 

£50 

n 

MID* 

251 

'i 

* 
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Colour-Basic Doppel tokens 


255 

1 28 

T 

COLOUR 

255 

1 29 

r 

FCOLOUR 

255 

t 30 

J 

KEYPAD 

255 

1 31 

L 

30 Y 

255 

1 32 

4 

PLOT 

255 

1 33 

► 

FGR 

255 

1 34 

X 

LGP 

255 

1 35 

* 

FCLS 

255 

1 36 

mm 

PLAY 

255 

1 3? 

1 

C I POLE 

255 

1 38 

1 

SCALE 

255 

1 39 


SHAPE 

255 

1 40 


NSHAPE 

255 

141 

□ 

XSHAPE 

255 

1 42 

| 

PAINT 

255 

1 43 


CP 0 I NT 

255 

1 44 

1 

NPLOT 

255 

1 45 


SOUND 

255 

1 46 

r 

CHAR 

255 

1 47 


R E N U M 

255 

1 48 

> 

SWAP 

255 

1 49 

< 

FKEY 

255 

1 50 

i 

CALL 

255 

151 

i 

VERIFY 

255 

1 52 

■ 

B8PD 

255 

1 53 

H 

NBGRO 


CDie Tokens sind die der neuen Basic-ROMs, 
die seit April '83 eingebaut sind. 5 


Folgendes Programm erzeugt eine aequivalente Liste auf dem Bildschirm: 


10 CLS:C=-1 :A=127:B=3:CHAR4 

20 PR INT "Bas ic Einfachtokens" :X=&H1650 

30 IFPEEKCX) > 127THEN50 

40 PRINTCHRt t PEEKC X) AND 1271 j : X«X+ 1 : G0T030 
50 B=B+1 :C=C+1 : IFC=124THEN90 
60 I FB<48THEN80 
70 G0SUB160:CLS:B=0 

80 A=A+1 : PRINT sCOLOURl : PRINTS C INTt B/2) *40) +C A- INTC A/2) *25 *20. A : " "} :C0 
L0UR5 : PRINTCHR$ CAD "j :C0L0UR2 :Q0T04O 
90 G0SUB160:CLS:B=3:C=-1 :A=127:X=&H3930 
100 PRINT"Colour-Basic Doppel tokens" 

110 IFPEEkCXD > 127THEN130 

120 PRINTCHRSC PEEK(X) AND127) ? :X-X+1 :G0T01 10 
130 I FA=129THENPRINT"R" ; 

140 B=B+1 :C=C+1 : I FC=26THENEND 

150 A=A+1 SPRINT sCOLOURl : PRINTSC INTCB/2D*40)+CA-INTCA/2D*2)*20, "255":A; 

" "} :C0L0UR5:PRINTCHR$CA) s" ": :C0L0UR2: GOTO 120 

160 PRINT4960. "Bitte druecken Sie <RETURN> INPUTR* : RETURN 


Beachten Sie, daß ein Teil der Befehle erst im Disk-Basic benutzt werden (z B TIME $) 
Im normalen Basic haben diese Befehle keine Funktion und fuhren zu ’?SN ERROR” 
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Anhang B: 

Dezimal/Hexadezimal/ASCII-Tabelle 


Dez 


Hex 

Z . 

Dez 


Hex 

Z . 

Dez 


Hex 

Z 

e 

S= 

00H 


1 

SS 

01 H 


2 

= 

02H 


3 

= 

03H 


4 

SS 

04H 


5 

= 

05H 


6 

= 

0 6 H 


7 

= 

07H 


8 

= 

08H 


9 

= 

09H 


1 0 

= 

0 AH 


1 1 

= 

0BH 


1 2 

= 

0CH 


1 3 

SS 

0 DH 


1 4 

= 

0 EH 


1 5 

= 

0 F H 


1 6 

= 

1 0H 


1 7 

= 

1 1 H 


1 8 

= 

1 2H 


1 9 

= 

1 3H 


28 

= 

1 4 H 


2 1 

= 

1 5H 


22 

= 

1 6H 


23 

- 

1 7H 


24 

= 

1 8H 


25 

SS 

1 9H 


26 

SS 

1 AH 


27 

= 

1 BH 


28 

SS 

1 CH 


29 

= 

1 DH 


38 

= 

1 EH 


31 

= 

1 FH 


32 

= 

20H 


33 

SS 

21 H 

! 

34 

= 

22H 

■ 

35 

= 

23H 

« 

36 

Ä 

2 4 H 

$ 

37 

= 

25H 

V. 

38 

SS 

26H 

& 

39 

SS 

27H 

* 

48 

= 

28H 

< 

4 1 

= 

29H 

> 

42 

= 

2AH 

* 

43 

= 

2BH 

+ 

44 

= 

2CH 


45 

- 

2DH 

- 

46 

= 

ZEH 


47 

= 

2FH 

X 

48 

SS 

30H 

0 

49 

SS 

31 H 

i 

58 


32H 

2 

51 

= 

33H 

3 

52 

= 

34H 

4 

53 

= 

35H 

5 

54 

= 

36H 

6 

55 

= 

37H 

7 

56 

= 

38H 

8 

57 

= 

39H 

9 

58 

= 

3AH 


59 

= 

3BH 

■, 

68 

5= 

3CH 

< 

61 

= 

3DH 

= 

62 

= 

3EH 

> 

63 

= 

3FH 

? 

64 

= 

40H 

8 

65 

= 

41 H 

A 

66 

= 

4 2 H 

B 

67 

= 

43 H 

C 

68 

= 

44 H 

D 

69 

= 

45H 

E 

78 

SS 

4 6 H 

F 

71 

= 

47 H 

6 

72 

= 

48H 

H 

73 

= 

49H 

I 

74 

= 

4AH 

3 

75 

= 

4 BH 

K 

76 

sr 

4CH 

L 

77 

= 

4 DH 

M 

78 

= 

4EH 

H 

79 

= 

4FH 

0 

88 

SS 

50H 

P 

81 

SS 

51 H 

e 

82 

= 

52H 

R 

83 

sr 

53 H 

S 

84 

SS 

54H 

T 

85 

= 

55H 

U 

86 

= 

56H 

V 

87 

SS 

57H 

y 

88 

= 

58H 

X 

89 

= 

59H 

V 

90 

— 

5 AH 

z 

91 

= 

5BH 

E 

92 

= 

SCH 

\ 

93 

= 

5DH 

3 

94 

SS 

5EH 

A 

95 

= 

5FH 


96 

= 

68H 


97 

— 

61 H 

a 

98 

— 

62H 

b 

99 

SS 

63H 

c 

1 00 

SS 

64H 

d 

101 

= 

65H 

e 

1 02 

= 

66H 

f 

1 83 

= 

67H 

9 

1 84 

= 

68H 

h 

1 85 

= 

69H 

i 

1 06 

S= 

6AH 

J 

107 

= 

6BH 

k 

1 88 

SS 

6CH 

1 

1 89 

SS 

6DH 

n 

1 1 0 

= 

6EH 

n 

1 1 1 

= 

6FH 

o 

1 1 2 

s 

70H 

P 

1 1 3 

= 

71 H 

q 

1 1 4 

— 

72H 

r 

1 1 5 

— 

73H 

s 

1 1 6 

= 

74H 

t 

1 1 7 

Ä 

75H 

u 

1 1 8 

= 

76H 

V 

1 1 9 


77H 

u 

1 20 

SS 

78H 

X 

121 

SS 

79H 

y 

1 22 

= 

7 AH 

z 

1 23 

= 

7BH 

< 

1 24 

= 

7CH 


1 25 

= 

7DH 

> 

1 26 

SS 

7EH 


1 27 

= 

7FH 

■ 

1 28 

- 

80H 

T 

1 29 

s 

8 t H 

r 

1 38 

= 

82H 

J 

131 

— 

83H 

L. 

1 32 

= 

84H 

4 

1 33 

= 

85H 

► 

1 34 

= 

86H 

JL 


\ 



1 35 

X 

8 7 H 

•w 

1 36 

= 

8 8 H 

— 

1 37 


89H 

1 

1 38 

= 

SAH 

1 

1 39 

= 

8BH 

— 

1 40 

= 

SCH 


141 

= 

8DH 

□ 

1 42 

= 

8EH 

1 

1 43 

= 

8FH 


1 44 

Ä 

30 H 

1 

1 45 

= 

91 H 


1 46 


92H 

r 

1 47 

= 

93H 

T 

1 48 

= 

94H 

> 

1 49 

= 

95H 

< 

1 58 

= 

96H 

fr 

151 

= 

97H 

4 

152 

= 

98H 

■ 

1 53 

= 

9 9 H 

t 

1 54 


SAH 


1 55 

= 

9BH 

L 

1 56 

= 

9CH 

J 

1 57 

= 

9DH 

A 

t 58 

= 

9EH 

V 

1 53 

= 

9FH 

*■. 

1 68 

= 

ABH 

”*■ 

1 61 


AI H 

m 

1 62 

= 

A2H 

C 

1 63 

= 

A3H 

1 

1 64 

= 

A4H 

n 

1 65 

= 

A5H 

u 

1 66 

= 

A6H 

* 

1 67 

= 

A7H 


1 68 

= 

A3H 

II 

1 69 

SS 

A9H 

m 

1 70 

= 

A AH 

* 

171 

S 

ABH 


1 72 

= 

ACH 

□ 

1 73 

= 

ADH 

K 

1 74 


ACH 

£ 

1 75 

= 

AFH 

PL 

1 76 

= 

BBH 

W 

1 77 

= 

B 1 H 

■ 

1 78 

= 

B2H 

U 

1 73 

= 

B3H 

n 

1 80 

= 

B4H 


181 


B5H 


1 82 

= 

B6H 

i 

1 83 

= 

B7H 

i 

1 84 

= 

B8H 

u 

1 85 

= 

B 9 H 

X 

1 86 

= 

BAH 

i 

187 

= 

BBH 


1 88 

= 

BCH 

_ 

1 83 

= 

BDH 

■ 

1 30 


BEH 

m 

191 

= 

BFH 

■ 

1 32 

= 

C0H 


1 33 

= 

CI H 

= 

1 94 

= 

C2H 

+ 

1 95 

= 

C3H 

$ 

1 96 

= 

C4H 

* 

1 97 


C5H 

X 

1 38 

= 

C6H 

* 

199 

= 

C7H 

M 

200 

= 

C8H 

♦ 

m 

= 

m 



= 

S8H 

J 

m 

= 

8!H 

u 

207 

= 

CFH 

i 

208 

= 

D0H 


209 

= 

Dl H 


210 

= 

D2H 


21 1 

= 

D3H 

“ 

212 

= 

D4H 

1 

213 

=s 

D5H 

i 

21 4 

= 

D6H 

% 

21 5 

= 

D7H 

= 

216 


D8H 

m 

21 7 

= 

D9H 

— 

218 


DAH 

_ 

219 


DB H 

i 

220 

= 

DCH 


221 

= 

DDH 

II 

222 

= 

DEH 


223 

= 

DFH 


224 

= 

E0H 

k 

225 

= 

El H 

i 

226 

= 

E2H 

r 

227 

= 

E3H 

\ 

228 

SS 

E4H 


229 


E5H 

w 

238 

- 

E6H 

• 

231 

= 

E7H 

*v 

232 

= 

E8H 

i' 

233 

= 

E9H 

□ 

234 

= 

EAH 


235 


EBH 

o 

236 

= 

ECH 

r 

237 

=: 

EDH 


238 

= 

EEH 

4 

239 

- 

EFH 

*- 

240 

•5 

F 0 H 

j 

241 

= 

Fl H 

X 

242 


F2H 

♦ 

243 

= 

F3H 

« 

244 

= 

F4H 

* 

245 

= 

FSH 

> 

246 

=5 

F6H 


247 

= 

F7H 

:: 

248 

= 

F8H 

□ 

249 

= 

F9H 

V 

250 

5= 

FAH 

n 

251 

5= 

FBH 


252 

= 

FCH 


253 

= 

FDH 


254 

= 

FEH 

!i 


255 = FFH -» 


Folgendes Programm erzeugt ein aequi"a1entes Listing auf dem Bildschirm 

10 CLS :ß=3 

15 PRINT~Dez Hex Z. Dez Hex Z. Dez Hex Z.~ 

20 F0RA=OTO255 

30 IFA<32THENAS=" "ELSEAS=CHRS C A) 

40 A1S=STRS£A) :A1S=RIGHTSC A1S.LENCA1S) -1) 

50 IFLENCA1S) <3THENA1S-STRINGSC3-LENC AIS) ,32)+AlS 
60 A1S=A1S+" * " 

70 Al-INTCA/16) :A2=AAND15 

80 IFA1 < 10THENA1 S=A1 S+CHRSC 48+A1 ) ELSEA1 S=A1 S+CHRS C 55+A1 ) 

90 I FA2< 10THENA1S=A1 S+CHRS C48+A2)ELSEA1S=A1 S+CHRS C55+A2) 

100 AIS =A1 S+”H '"+AS 

110 PR I NT § I NT C B/3 )*40+CB-I NT C B/3 ) *3 ) * 1 3 , s 
120 B=B+1 

130 C0L0UR3 : PRINTMIDSC AIS ,1,3) : : C0L0UR1 : PRINTMIDSC Al S .4.3) ; :C0L0UR6sPR 
INTMIDSC Al S » 7 , 3) j sC0L0UR2 s PRINTMIDSC AIS. 10. 2) J 
140 I FB < 69THENNEXTA 

150 I F I NKEYS = ”"THEN 1 50ELSEB=0 : CLS ; GOTO 1 40 
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Colnur-GEniE 

Snf tucir^ 



*************************************************************** 
Verzeichnis der verfügbaren Col our-Genie-Sof t wäre 
*************************************************************** 
l.J HILFSPROGRAMME 

COLOUR-COMPILER: Dieses Programm ist extrem wertvoll. Es bietet 
die Möglichkeit. Bas i cpr ogramme in Maschinenspracheprogramme zu 
übersetzten. 

Der wesentliche Vorteil: Ihr Programm läuft nach Compilierung 
c.a. 40 mal (') schneller. 

Dies geschieht interaktiv, d.h. Basicprogramm, Maschinen- 
programm und Compiler stehen gleichzeitig im Speicher, was ein 
sehr schnelles Arbeiten ermöglicht. Dabei können c.a. 9.5 kByte 
Basicprogramm verarbeitet werden. Verzichtet man auf die 
hochauflösende Grafik, steht noch mehr Speicher zur Verfügung. 
Voraussetzung: Ihr COLOUR-GENIE MUSS AUF 32K RAM ERWEITERT 
SEIN. Oie meisten Col our -Bas i c -Be f eh l e werden vom 
Colour-Compi ler unterstützt. Die wesentlichste Einschränkung 
ist» daß der Colour-Compi ler nur Ganzzahlen Clntegers) 
verarbeitet . 

Preis: 69.- DM 

COLOUR-MONITOR I: Ein Maschinensprachemoni tor mit starkem 
Befehlssatz, z.B. Disasseml leren, Asc i i /Hex -Dump , Bänder 
laden/schreiben. Bytes suchen, Speicher edi t ieren/verschieben/ 
relozieren, Hex/Dez ima l -Umwandl ung u.a.m. 

Preis: 39.- OM 

COLOUR-ASSEMBLER : Mit diesem Programm können Maschinensprache- 
pro'gramme auf komfortable Weise entwickelt werden. Das 
Programmieren geschieht mit Z80-Mnemonics , Labels etc. 

Der Assembler erzeugt dann das Maschinenspracheprogramm, das 
zur Probe auch direkt ausgefuhrt werden kann. 

Eine weitere Besonderheit des Assemblers ist, daß der 
Assembler-Text im ganz normalen Basic-Modus erzeugt wird, 
so daß alle Bas lC-Be fehl e wie EDIT, LL IST , CSAVE vom Assembler 
ausgenutzt werden. 

Preis: 69.- OM 

SOUND-EDITOR (auch im Handbuch "Colour Basic leicht gelernt” 
aufgelistet) : Ein nützliches Hilfsprogramm zur Programmierung 
des PSG-ICs (Sound-Chip). Sie editieren die PSG-Register auf 
dem Bildschirm und der entsprechende Ton wird gleichzeitig 
ausgegeben. Abschließend gibt das Programm alle PSG-Register- 
inhalte in dezimaler Schreibweise aus. 

Preis: 25.- DM 

ZEICHEN-EDITOR (auch im Handbuch "Colour Basic leicht gelernt" 
aufgelistet) : Dieses Programm ermöglicht es, 64 der 128 frei 
definierbaren Zeichen auf dem Bildschirm übersichtlich zu 
editieren. Es können auch Grafiken, wie z.B eine Schreib- 
schrift. erstellt werden. Abschließend werden die definierten 
Zeichen in ein Basicprogramm geschrieben, was diese für den 
späteren Gebrauch oder zur Entwicklung eigener Programme wieder 
definiert. So wird die umständliche Handhabung der Programm- 
ierung der definierbaren Zeichen umgangen. 

96 Preis: 25.- DM 


GRAFIK -EDITOR: Wenn Sie Ihr Colour-Genie auf 32K RAM auf- 
gerüstet haben. Können Sie dieses Programm einsetzten, denn 
der "Graf lh-Editor" hat eine Länge von 26000 Bytes' 

Er bietet die MoglichKeit, Grafiken im FGR-Modus mit einer 
Vielzahl von leistungsstarken Kommandos zu kreieren. 
Abschließend wird ein Basic-Programm erzeugt werden, das, 
eingebunden in ein eigenes Programm, das Bild blitzschnell 
wieder auf den Bildschirm bringt. Sie können also auch komplexe 
Grafiken sehr schnell fertigstellen und sie hinterher beliebig 
verwenden. 

Preis: 69.- DM 

SHAPER: Die Handhabung des Basicbefehls "SHAPE" ist recht 
umständlich. Hier bringt der "Shaper" Abhilfe: Mit wenigen 
Tastendrücken erzeugen Sie eine Figur, die abschließend 
iir Foramt der "Shape-Table” abgespeichert wird. 

Preis: 25.- DM 

C0LR0T: Ein sehr nützliches Grafikprogramm, für alle die mit 
großen Texten Aufmerksamkeit erregen wollen (z.B. im 
Schaufenster). Colrot erzeugt Laufschriften mit bis zu 512 
Zeichen Länge. Titel und Fußschrift, Inversdarstellung. 
Intermezzo u.v.a.m. 

Ein komfortabler Editor ermöglicht einfaches Arbeiten. 

Preis: 69.- DM 

BASICODE: Dieses Programm macht ihr Colour-Genie Basicode- 
kompatibel • Basicode ist das Standard-Basic, in dem z.B. 
das WDR-Fernsehen Programme austrahlt. Eine Hardwareanderung 
ist nicht notig. 

Preis: 25.- DM 

PLOTTER: Plotter ist ein anspruchsvolles Mathematikprogramm, 
das beliebige Funktionen zeichnet. Wertetabellen erstellt 
u.s.w. 

Preis: 39.- DM 

ZEICHENE0IT0R+: Dieser Editor, in Maschinensprache geschrieben, 
ermöglicht es alle 128 Zeichen sehr schnell und komfortabel 
zu editieren. Dabei gibt es sogar Befehle um Kreise zu 
zeichnen, Zeichen zu kopieren/dupl iz leren/rot leren/inver t leren 
u.v.a.m. 

Preis: 39.- DM 

BASIC+5: Dieses Programm erweitert das normale Basic um 5 
Befehle: Im Grafikmodus können beliebige Texte dargestellt 
werden, Rechteckflachen können gemalt werden, mit "SAVE" können 
Mach i nenspracheprog ramme gesichert und mit "LOAD" komfortabel 
geladen werden. Ferner steht ein Eingabebefehl zur Verfügung, 
der an beliebige Speicherzellen schreibt. 

Preis- 39.- DM 
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ZEICHENSÄTZE: Dieses Programm läßt Sie den vorhandenen Zeichen- 
satz Tür alle ASC I I -Zeichen wahlweise gegen einen von acht 
neuen, interessanten Zeichensätzen ersetzen. 

Für dieses Programm muß Ihr Colour-Genie mit 32K RAM 
ausgerüstet sein. 

Preis: 25.- DM 

SCREEN-PRINTER: (Auch in dem Buch "Das Colour-Genie-Buch 1" 
oufgel istet . I Auf dieses Programm haben die Besitzer des STAR- 
Druckers DP 510 bzw. DP 515 sicher gewartet ■ 

Es ermöglicht es Ihnen, den Bildschirm jederzeit Komplett auf 
Ihren DrucKer auszugeben, egal ob Sie im FGR- oder im LGR-Modus 
sind. Definierte und feste Grafikzeichen werden ebenfalls mit 
ausgedruckt. Auch für dieses Programm brauchen Sie 32H RAM und 
natürlich einen STAR DP 510 / DP 515 Orucker. 

Preis: 39.- DM 


2.) SPIEL- u. GRAFIKPROGRAMME 

INVASION AUS DEM WELTRAUM: Ein Maschinenspracheprogramm, das 
die Sound- u. Grafikmogl ichkeiten des Col our-Genies voll 
ausnutzt , Ihre Aufgabe ist es, einen Pulk von Invasoren 
abzuwehren, der sich der Erde nähert. 

Die Invasoren werden dabei immer schneller und gefährlicher. 

Preis: 39.- DM 

PUNKTEJAGD: Bei diesem Spiel geht es darum, alle Punkte in 
einem Labyrint aufzusammeln, bevor Sie von einem Wächter 
eingeholt werden. Schnelle Grafik und Ton durch Maschinen- 
sprache . 

Preis: 25.- DM 

WURM: Unser derzeit schnellstes Act lon-Spiel . Ein Wurm kommt 
von oben den BiLdschirm herab und versucht Sie zu vernichten. 

Dabei hat er die Spinne, die Fliege und die Ente als Helfer. 

Kein Spiel für ruhige Stunden' 

Preis: 39.- DM 

BREAK OUT: Bei diesem Video-Spiel muß eine Mauer mit Ihrem Ball 
zerstört werden. Dabei können verschieden Schwierigkeitsgrade 
vorgewahlt werden. Hohe Geschwindigkeit durch Maschinensprache- 
programmierung. 

Preis: 39.- DM 

DEMOPROGRAMM: Hiermit können Sie besser als mit der mit Ihrem 
Colour-Genie z.Zt. nutgel leferten englischen Demokassette die 
Möglichkeiten Ihres Col our-Genies demonstrieren. 

Preis: 25.- DM 

ANDROMEDA: Ein erstklassiges dreidimensionales Weltraumspiel 
mit ansprechender Grafik. Feindliche Raumschiffe kommen auf Sie 
zu; vernichten Sie diese, bevor sie Ihnen wertvolle Energie ab- 
gesaugt haben. Ist die Zeit abgelaufen, so eilt Ihnen Ihre 
Mutterbasis zu Hilfe; aber das Auftanken will auch gelernt 
‘I =>ein. 

Preis: 39.- DM 

MAU-MAU: Endlich haben Sie einen Spielpartner, der nicht wutend 
die Karten wegwirft, wenn er am verlieren ist. Dies durfte wohl 
aber auch selten der Fall sein, vielmehr wahrscheinlich ist es, 
daß Sie den Computer vor Wut ausschalten, da ihr Computer Dank 
einer hervorragenden Taktik auf Sieg programmiert ist. 

(Er schummelt nicht Gespielt wird nach den üblichen Regeln. 

Preis: 25.- DM 

HEKTIK: Stellen Sie sich vor. Sie waren in einem Neubau mit 6 
Geschossen, bei dem die Ebenen durch Leitern verbunden sind. 

Jetzt kommen Ihnen von oben Verfolger entgegen. Sie mußen sich 
ihnen stellen, denn es gibt keinen Fluchtweg. Graben Sie an 
strategisch wichtigen Stellen Locher in den Boden, um so Ihre 
Verfolger auszuschalten. 

Preis: 39.- DM 99 


METEOR: Ein Super-Act ion-Spiel in Grafik-Modus Ihres Colour- 
Genies. Sie befinden sich in einem Meteoritenfeld und werden 
von Meteoriten, Sternen und schiessenden Ufos bedrängt. 

Das Programm zeichnet sich durch sehr schnelle Grafik und gute 
Toneffekte aus. 

Preis: 69.- DM 

MOTTEN: Bei diesem Videospiel müßen Sie Kolonnen von Motten 
bekämpfen, die in gefährlichen Sturzf lügen anfliegen und dabei 
auch noch schiessen. 

Preis: 39.- DM 

PAN I H : Ein Programm für 2 Spieler. Man muß versuchen, den 
Gegner einzumauern. Wählbare Geschwindigkeit macht "Mauer” 
entweder zu einem Reaktions- oder zu einem Strategiespiel. 

Das Programm kann wahlweise mit Joysticks oder mit der Tastatur 
bedient werden. 

Preis: 25.- DM 

TAUSENDFUß: Hier sollen Sie einen Wurm so steuern, daß er nur 
Futter aber kein Gift frißt. Dazu kommen noch Kraftfutter und 
Gegengift. Ein sehr unterhaltsames Geschicklichkeitsspiel für 
die ganze Familie. Bei Spielbeginn können viele verschiedene 
Geschwindigkeiten und Schwierigkeitsstufen vorgewählt werden. 
Preis: 39.- DM 

COLOUR-SCHACH : Jetzt können Sie gegen Ihr Colour-Genie auch 
Schach spielen. Col our-Schach bietet 7 verschiedene Spiel- 
starken, Aufzeichnung eines laufenden Spieles auf Kassette. 
Andern von Stellungen, einen Demonstrationsmodus und anderes 
mehr. Die Figuren werden auf ansprechende Weise grafisch 
dargestel l t . 

Preis: 69.- DM 

EXNIMROID: Ein Denkspiel, abgeleitet vom bekannten Nim-Spiel . 

Es geht darum, aus mehreren Häufchen den letzten Spielstein 
zu nehmen. Sie spielen gegen den Computer. 

Preis: 25.- DM 

KINGS: Eine Reg l er ungss l mu l a t l on , bei der Sie für eine Dauer 
von 8 Jahren eine Insel regieren sollen. Dabei kann nur der 
kluge Einsatz aller Faktoren zu einem Erfolg fuhren. Haben 
Sie Ihre Amtszeit überlebt, werden Ihre Taten ausgewerted. und 
Sie können dann auch weiter regieren. 

Preis: 25.- DM 

MAUS I : Ein lustiges Videospiel, bei dem Sie als Maus im 
strömendem Regen Käse holen sollen, ohne naß zu werden. 

Preis: 25.- DM 
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MAMPFMAN: Ähnlich wie unser Spiel "Punkte jagd" , nur daß Sie 
hier von mehreren Gespenstern verfolgt werden, die Sie unter 
bestimmten Bedingungen jedoch auch fressen können. 

Preis: 39.- DM 

COLOUR-KONG: Das absolute Videospiel ■ Retten Sie Ihre 
Freundin vor dem wilden Affen. Mehrere Ebenen, super Grafik 
und Musik. Auf dem Band finden Sie Versionen für 32K und 
16K RAM 

Preis: 69.- DM 

PANZERKAMPF: Ein Spiel für zwei Personen (JOYSTICKS und 32K RAM 
erforderlich). Liefern Sie sich mit Ihrem Gegner spannende 
Panzerschlachten 1 Das Programm verfugt über 3 verschiedene 
Gelände mit Minen etc. 

Preis: 69.- DM 

EIS: Ein spannendes, zugleich jedoch auch recht schwieriges 
Actionspiel mit strategischen Elementen. Sie befinden sich in 
einem Kuhlraum und mußen Eisblocke so ans Rutschen bringen, daß 
die gefährlichen Schneemonster vernichtet werden. 

Preis: 39.- DM 

EAGLE: Vernichten Sie verschiedene Schwadronen von Vögeln, 
bevor Sie versuchen das große Mutterschiff zu zerstören. 

Preis: 39.- DM 

GAME of LIFE: Dieses bekannte Programm simuliert das Wachstum 
von Bakterienkulturen. Die Regeln werden im Programm erklärt 
und einige interessante Figuren sind fest abgespeichert. 

Preis: 25.- DM 

SAUG* Ein lustiges Videospiel, bei dem Sie aus einem 
unterirdischen Labyrint Termiten ansaugen mußen, wobei Sie sich 
vor giftigen, roten Termiten hüten mußen. 

Das Spiel kann auch mit Joysticks gesteuert werden. 

Preis: 39.- DM 

ExREVERSIC: Spielen Sie Reversi gegen Ihr Colour-Geme ' 

Dabei kann zwischen mehreren Spielstufen gewählt werden. 

Das Spielbrett wird auf ansprechende Weise graphisch 
dargestel l t . 

Preis : 39 . - DM 

BANG-BANG: Zwei Cowboys begegnen sich in der Prärie und liefern 
sich ein erbittertes Duell. Für dieses Spiel sind Joysticks 
er forder lieh. 

Preis- 39.- DM 

NETZO. Versuchen Sie mit Ihrem Pinsel alle Flachen auszumalen, 
ohne von Ihren Gegnern erwischt zu werden. 

Preis. 39.- DM 
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OEATH-TRAP, ein dreidimensionales Grafik-Abenteuerspiel , 

CAdventurel : 

Ein Programm zum wahnsinnig werden 1 Sie befinden sich in einem 

Labyrinth mit über 1100 Räumen, in dem es von gefährlichen j 

Einwohnern und Gegenständen wimmelt. Finden Sie die wichtigen 

Gegenstände und wenden Sie sie richtig an, um aus dem Labyrinth 

zu entkommen. Zwei Vorraussetzungen müssen allerdings erfüllt ; 

sein: Ihr Colour-Genie muß 32H RAM haben, und Sie müssen 

elementare Englischkenntnisse besitzen, da die Sie Kommandos in ! 

Form von englischen Sätzen eingeben. , 

Preis: 69.- OM I 

TCS-CHOPPER : Die Geschmäcker sind verschieden - aber dies ist i 

wohl das beste Videospiel, das es z.Zt. für das Colour-Genie ' 

gibt' Dreizehn Ihrer Kameraden sind in einem von vier riesigen 
Labyrinthen ausgesetzt worden. Versuchen Sie nun, diese mit 

Ihrem Hubschrauber zu retten' Aber Vorsicht, Ihre Freunde , 

werden scharf bewacht' ! 

32K RAM sind auch hier notwendig. ; 

Preis: 69.- DM 

DOPPEL-WURM: Vielleicht kennen Sie unser beliebtes Spiel l 

"Tausendfuß", "Doppel -Wurm" ist sehr ähnlich, allerdings 
spielen hier zwei Spieler gegeneinander, was die Spannung 
natürlich erhöht. Achtung: Nur für Joystick-Besitzer 1 

Preis: 39.- DM ; 

MADTREE: Ein schwieriges Videospiel: Sie sind eine fleißige 

Biene und müssen eine Reihe von Blumen ständig bestäuben, damit * 

diese nicht eingehen. Doch diese Blumen sind undankbar und \ 

gefährden Sie. } 

Preis: 39.- DM l 

DIG-BOY: In Ihrem unterirdischen Reich kämpfen Sie gegen { 

Drachen und andere Untiere. Locken Sie diese unter einen ’ 

der wackligen Felsen, um sie zu zerschmettern. 

Dieses Spiel ist sehr empfehlenswert, da es eine Menge 

Abwechslung bietet. , 

Preis: 39.- DM l 

EMPIRE: Für alle, die nicht nur reine Aktion wollen, ist 
"Empire" das ideale Spiel. Dieses Spiel kann mit bis zu sechs 
Spielern gleichzeitig gespielt werden, der Computer spielt 
ebenfalls mit. Jeder Spieler hat ein kleines Reich, das nun 
durch Handel. Politik, Krieg u.s.w. zu Wohlstand kommen soll. 

Dabei stehen Sie mit den anderen Nationen ständig in Beziehung. v 

sei es durch Handel oder durch Hrieg. | 

Ansprechende Grafik macht das Programm noch interessanter. 

Ihr Colour-Genie muß für "Empire" auf 32K RAM aufgerüstet sein. 1 

Preis: 69.- DM { 
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3.) MUSIKPROGRAMME 


MUSIK: Dieses Programm spielt festprogrammierte Musikstücke 
mit verblüffender Qualität. 

Preis: 25.- DM 

ORGEL: Spielen Sie Orgel auf Ihrem Colour-Qenie ' 

Ihnen stehen zwei Manuale, einstellbares Delay und sogar 
eine Schlagzeugbegleitung zur Seite. 

Preis: 25.- DM 

C OL OUR-SYNTHESIZER : Ein Programm, das man gesehen haben muß, um 
es überhaupt für möglich zu halten. Der Col our-Synthes izer 
macht aus Ihrem Colour-Genie einen vollwertigen 3-Kanal 
Synthesizer mit VCO, VCA. Hüllkurve, Schlagzeug... 

Acht Einstellungen aller Regler können vorprogrammiert , auf 
Tastendruck abgerufen und auf Band gesichert werden. 

Verblüffend ist auch die graphische Darstellung. 

Preis: 69.- DM 

COMPOSER: Mit diesem Programm können Sie sehr einfach eigene 
Musikstücke komponieren. Noten. Pausenzeichen u.s.w. werden 
grafisch dargestellt, können editiert und auf Band gespeichert 
werden . 

Preis: 39.- DM 


4.) LERNPROGRAMME Cz.Zt. nur eines, demnächst mehr): 

MATHEMATIK-LERNPROGRAMM: Interessant für Kinder bis in's 
Grundschulalter. Wahlweise können die vier Grundrechenarten 
geübt werden, wobei man zwischen verschiedenen Schwierigkeits- 
graden wählen kann. Lustige grafische Gestaltung sorgt dafür, 
daß das Üben Spass macht. 

Preis: 25.- DM 


*** STAND DER TCS-SOFTWAREL ISTE . COLOUR-GENIE , VOM 12.8.1983 *** 

In Vorbereitung: Colour-Text, Lernprogramme für Kinder, 
verbesserter Maschinensprache-Monitor und viele interessante 
Spiele ' 



BESTELLFORMULAR 


Zur Bestellung von Colour-Genie-Programmen können Sie dieses 
Formular benutzten. Schicken Sie dieses an Ihren GENIE-Handl er 
oder direkt an TCS Computer GmbH 
Hölnstraße 4 
5205 St. Rugustin 2 
Tel.: 02241 / 28071 

Bankverbindung : 

Raiffeisenbank Menden BLZ 37069507 Konto-Nr. 1525 

Der Versand erfolgt per Nachnahme oder Vorauskasse auf obiges 
Konto (dies natürlich nicht, wenn Sie bei Ihrem Händler 
bestel l en) . 


Ich bitte um Zusendung folgender TCS Col our-Genie-Programme : 


Anzahl : Name des Programms : Preis/DM : Gesamt 


Meine Adresse ist: 

Name: 

Straße 

Ort: 

Datum: 


Gesamt 


Unter sehr i f t : 


DM 
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Kalle Braun • Jürgen BuoHmüller • Frank Seger 


Das 


Colour-Genie 


Buch 2 



COMPUTER GMBH 












430 C-l :T-1 :B-0 

440 GOSUB 4T0 

450 GOSUB 530 

460 GOTO 440 

470 IF B<>1 THEN 580 

480 PLAY CI. 1.0.0) 

490 PLAY (2. 1.0,0) 

500 0*0+1 jIF DO 1 THEN RETURN 
510 D*0:B*0 
520 T-T+l 

530 IF TO 5 THEN RETURN 
540 T-l 

550 P-P+IjIF P* 17 THEN P*1 
560 C*LCP) 

570 RETURN 
580 0-0+1 

590 IF 0* TEMPO THEN B»l:0*O 
600 PLAY C1.L0CC) .LTCC) .8) 

610 PLAY C2.B0CC.T) .BT(C.T) .8) 

620 RETURN 

630 NT-NT+RNDC3)-2 

640 IF NT< 1 THEN NT* 1 

650 IF NT >7 THEN NT-7 

660 PLAY C3.30CC.NT) .3TCC.NT) .9) 

670 RETURN 
















1120 Z4-Q1 
1130 Z5*Q2 
1140 K3-0 
1150 B3-0 
1160 S3-0 
1170 G5-0 
1180 D4-RNDU5) 

1190 ZCQ1. Q2 ) *G ( Q 1 . Q2) 

1200 IF OKI OR Q2<1 OR Ql >8 OR Q2>8 THEN 1470 
1210 GOSUB 4940 
1220 PRINT 

1230 IF TOOT THEN 1320 
1240 COLOUR 16 
1250 PRINT 

1260 PRINT "Deine Mission beginnt im galaktischen Quadranten 
1270 COLOUR 5 
1280 PRINT G2*: 

1290 COLOUR 16 
1300 PRINT" 1 ." 

1310 GOTO 1330 

1320 PRINT"Ou kosest nach 1 “ t B 2 S : ” 1 . ” 

1330 PRINT 

1340 K3- INTCGCQl . Q214.01) 

1350 83“ INT( GCQ1 . Q2)*.1)-10*K3 
1360 S3«G(Q1. Q2)-100*R3-IO*B3 
1370 IF K3-0 THEN 1430 
1380 COLOUR 3 

1390 PRINT"KAt1PFGEBIET CONDITION ROT" 

1400 IF S>200 THEN 1430 

1420 PRINT"SCHUTZSCHIRME GEFREHRLICH 5CHWRCH" 

1430 FOR 1-1 TO 3 
1440 Kl I, 1J-0 

1450 KU. 21-0 ■* ' * 

1460 NEXT 
1465 COLOUR 16 

1470 FOR 1*1 TO 3 * 

1480 KU, 3) “0 
1490 NEXT 

1500 Q*-Z*+Z*+Z*+Z»+ZS+Zi+Z»+LEFTSlZ*. 17) 

1510 1 POSITIONEN IN QUADRRNTEN FESTLEGEN 
1520 A*-"<E>" 

1530 Zl-Sl 

1540 22-S2 

1550 GOSUB 4870 

1560 IF K3<1 THEN 1670 

1570 FOR 1-1 TO K3 


10 



500 GOSUB 4780 
590 A*«"+K+” 

600 ZI «RI 

610 Z2-R2 

620 GOSUB 4970 

630 HU. 2I-R2 

640 K( I. 1 ) «RI 

650 HCl. 3) «S9*C . 5+RNOCO) ) 

660 NEXT 

670 IF B3< 1 THEN 1760 
6S0 GOSUB 4780 
690 A*-">B<” 

700 Zl-Rl 

710 B4-R1 

720 Z2-R2 

730 B5-R2 

740 GOSUB 4970 

750 FOR I-l TO S3 

760 GOSUB 4780 


780 ZI «RI 
790 Z2-R2 
800 GOSUB 4670 
810 NEXT 

GOSUB 5460 

IF S+E> 10 THEN IF EMO OR DC7J-0 THEN 1870 
PRINT 

PRINT” SCHWERER FEHLER " 

GOTO 4640 
INPUT”Bef ehl ”sAl 
FOR I-l TO 9 

IF LEFTtCA*. 3IOMIDHA1*. 3*1-2, 3) THEN 1910 
ON I GOTO 2030. 1820, 3190. 3410. 3790. 4480. 6530. 7280 
NEXT 
NT 

[NT”FOLGENOE EINGABEN SIND MOEGLICH" 

NAV -> BEWEGEN" 

NAT « > NAHABTASTER” 

FAT - > FERNABTASTER'* 

PHA «> PHASER” 

TOR « > TORPEDO" 

SCH •> SCHUTZSCHIRME” 

2000 PRINT” ZER -> SCHADENSMELDUNG” 

2010 PRINT" COM «> COMPUTERANFRAGE" 

2020 GOTO 1830 
2030 ’ FLUGHONTROLLE 
2040 INPUT "Richtung "sCl 
2050 IF Cl«9 THEN Cl-1 
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2230 IF S<N-E OR DC7X0 THEN 1630 
2240 PRINT 

£2 SO PRINT"Sehir»Hontrol letSchl Ide sind »IV'iS 
2260 PRINT"Er»eraieetriheiten ae laden I" 

2270 GOTO 1830 

2260 • BEWEGEN 6 FEUERN OER KL INGONEN 

2230 FOR 1-1 TO K3 

2300 IF KCl, 3) *0 THEN 2400 

2310 RS*" 

2320 Zl.KCI, 1) 

2330 Z2-KCI, 1) 

2340 GOSUB 4670 
2360 GOSUB 4780 
2360 KCl, D-Zl 
2370 KCl. 2)-Z2 
2380 RS-~+K+" 

2390 GOSUB 4870 
2400 NEXT 
2410 GOSUB 6330 
2420 01-0 
2430 06-W1 

2440 IF Wl>-I THEN 06*1 
2460 FOR I-l TO 8 
2460 IF D C I > > *0 THEN 2510 
2470 OCD-OC 11+06 

2480 IF 0CI1>-.1 AND DC I) <0 THEN DCI) — .ls GOTO 2610 
2490 IF OCIXO THEN 2510 

2500 IF 0CIX>1 THEN Ot-ls Rl*Ii GOSUB 6060s PRINT"Schadensnel düng > ">0 
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2900 Z2-INTCS2) 

2910 GOSUB 0070 
2920 GOSUB 6240 
2930 TB-1 

2940 IF Wi < 1 THEN T8* . 1*INT(W1«103 
2950 T-T+T8 

2960 IF T>T0+T9 THEN 4640 

2970 ’ IST ENTERPRISE RNGEDOCHT *» 

2980 GOTO 1820 

2390 ' 
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3430 1 F DC ' 


!0 THEN PRII 


GOTO 1830 





[0 Spc 
530 


3450 IF DI8X0 THEN PRINT"Fehler 1* Feuerleitcoeputer" 

3460 PRINT"Phaser lm Ziel" 

3470 PRINT”Ver fuegbare Energie E i " Einheiten" 

3490 INPUT”Schus»energie "?X 
3490 IF X<»0 THEN 1830 
3500 IF E-X<0 THEN 3470 
3510 E-E-X 

3520 IF 0C7K0 THEN X-X*RND<03 

3530 HI-INTCX/K33 

3540 FOR 1-1 TO 3 

3550 IF KCl. 33<»0 THEN 3760 

3560 H-INTCCH1/SQRCCKCI. 1) -S1 3A2+CKC 1 . 2)-S2)A2))*( RNDC0)+2n 

3570 IF H> . 15*K( I . 3 3 THEN 3600 

3580 PRINT"Sensoren zeigen Keinen Treffer" 

3590 GOTO 3760 - - ' 

3600 KI 1 . 33-KII. 3>-H 

3610 PRINT H»" Einheiten trafen Klingonen ln"sPRINT"Sektor" i K( I , l)s". 
"jKCI. 2) 

3620 IF KCl. 33<»0 THEN PRINT" «** KLINGONE ZERSTOERT *«»": GOTO 36 
60 

3630 PRINT" (Sensoren zelgen"jHCI. 3) 

3640 PRINT" verbleibende Einheiten!" 

3650 GOTO 3760 

3660 K3-K3-1 ' 

3670 K9-K9-1 
3690 Zl-KCI. 1) 

3690 Z2-KCI. 23 
3700 Al»" 

3710 60SUB 4870 

3720 KCl. 33 »O 

3730 GCQ1. 023-GCQ1. 023-100 

3740 ZCQ1, Q23-GCQ1, Q23 

3750 IF K9<»0 THEN 7830 

3760 NEXT 

3770 GOSUB 6330 

3780 GOTO 1830 

3790 ' PHOTONENTORPEDO KONTROLLE 
3800 • 

3810 IF P<-0 THEN PR INT "Keine Torpedos «ehr verruegbar"s GOTO 1830 
3820 IF DC53 <0 THEN PRINT"Agschusseinrlchtung ausser Funktion"! GOTO 1 
830 

3830 INPUT "Torpedokurs (1-93 "}CI 
3840 IF Cl-9 THEN Cl-1 

3850 IF CI < 1 OR CI >9 THEN PRINT'Thekov : Fe l sehe Kursdaten. Sir ■ ": GOTq 1 
830 

3860 X1-CCC1. 1 


13+CCCC1+1. 13-CCCl 


:C1-INTCC13 





3870 E-E-2 
3880 P-P-l 

3830 X2-CCC1. 2I+CCCC1+1. 2)-C(Cl. 21 J*tCl- INTl CI 1) 

3900 X*S1 
3810 V-S2 

3920 PRINT"Torpedo fliegt" 

3930 X-X+Xl 
3940 Y-Y+X2 
3950 X3-INTIX+.5) 

3960 Y3-INTIY+.5) 

3370 IF X3< 1 OR X3>8 OR Y3< 1 OR Y3>8 THEN 4450 
3980 PRINT” ” : X3 i ” . ” s Y3 

3990 ft*-" 

4000 ZI -X 

4010 22-Y 

4020 GOSUB 5390 

4030 IF Z3< >0 THEN 3930 

4040 fl*-"+K+" 

4050 Zl-X 

4060 Z2-Y 

4070 GOSUB 5390 

4080 IF 23*0 THEN 4190 

4090 PRINT"»«* Klingone zerstoert ***" 

4100 H3-K3-1 

4110 H9-H9-1 

4120 IF K9C-0 THEN 7830 

4130 FOR I«1 TO 3 

4140 IF X3»K(I, llftND Y3-KC I . 2) THEN 4170 

4150 NEXT 

4160 1-3 

4170 K(I. 3) *0 

4180 GOTO 4370 

4190 ft*-” « " 

4200 Zl-X 
4210 Z2-Y 
4220 GOSUB 5390 

4230 IF Z3< >0 THEN PRINT"Stern bei ” ; X3; ~ , ” i Y3 ; " absorbierte Torpedo": 
GOSUB 6330: GOTO 1830 
4240 fl* ■ " > B< " 

4250 Zl-X 

4260 Z2-Y 

4270 GOSUB 5390 

4280 IF Z3-0 THEN 3920 

4290 PRINT"*** Sternenbosls zerstoert ***” 

4300 B3-B3-1 
4310 B9-89-1 

4320 IF B9> 0 OR K9>T-T0-T9 THEN 4350 
4330 PR INT "Das wars . Kap 1 1 een i i i " 

4340 PRINT"Du bist Hierelt Oelrves Hoeandos entzogenund zu 99 Sternenta 
gen Strafarbeit auf Cygnus 12 verdonnert Mi” 

4350 PRINT"Das Fl ot t enkoaaando saeeelt Anklage- punkte gegen Dich" 
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4360 00*0 
4370 Z1»X 
4380 Z2-Y 
4390 Al»" 

4400 GOSUB 4870 

4410 GCQ1. 02)»K3*100+B3«10+S3 
4420 ZCQ1. 02) »GCQl . Q2) 

4430 GOSUB 6330 
4440 GOTO 1830 

4450 PRINT "Torpedo ging am Ziel vorbei" 

4460 GOSUB 6330 
4470 GOTO 1830 
4480 ' SCHIRMKONTROLLE 

4490 IF 017X0 THEN PRINT”Schlrshontrol le ausgefallen": GOTO 1830 

4500 PRINT"Ver fueabare Energl e : "i E+S 

4510 INPUT"Wievlel Energie in die Schiree ":X 

4520 IF X<0 OR S-X THEN PRlNT"<Schl ree unveraender t >" : GOTO 1830 
4530 IF X>E+S THEN PRINT"Schlrehontrol letWir sind nicht die Sehet 

zhamaer der Foederat Ion" : PRINT” <Schirae unveraendert >”: GOTO 1830 
4540 E-E+S-X 
4550 S»X 

4560 PRINT”Def lektor rau« : Schi l de jetzt auf’ 

4570 PRINT INT(S)i" Einheiten" 

4580 GOTO 1830 

4590 ’ ENDE OES SPIELS 

4600 CLS 

4610 IF T>T0+T9 THEN PRINT"Del ne Zeit ist ueberschr 1 t ten . das Houpt-qua 
rtier ist verloren und «lt iha die Galaxis. Du Niete imii"; END 
4620 PRINT"Heute Ist der Sternentaa":T 
4630 GOTO 4680 
4640 PRINT 

4650 PRINT" DIE ENTERPRISE IST ZERSTOERT” 

4660 PRINT" DIE FOEDERAT ION IST VERLOREN" 

4670 GOTO 4620 

4680 IF K9>1 THEN PRINT"Schade. es waren noch":K9:" Kl lngonische” : PRIN 
T"Schl acht sch I f fe uebria" ELSE PRINT"So ein M ist , haet test Du das letzt 
e": PRINT"Schlff doch noch erwischt . Pech > " 

4690 PRINT"Das Ist dos Ende Deiner Mission ■ ** 

4700 PRINT 
4710 PRINT 

4720 IF 89*0 THEN END 

4730 PR INT "Oie Foederatlon braucht einen neuen Koamandanten. al so F 
relwl l l ige vor !!!!»” 

4740 PRINT 

4750 INPUT "Tritt heron und tippe ’AVE' ";A! 

4760 IF A1»"AYE" THEN RUN 
4770 END 

4780 • LEEREN PLATZ IM QUADRANTEN FINDEN 
4790 R1-RNDC8) 
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5270 GOTO 5290 
5280 G2*»"Splce" 

5290 IF 6501 THEN ON Z5 GOTO 5310. 5330. 6350. 5370. 5310. 5330, 5350 

, 5370 

5300 RETURN 

5310 G2i»G21+" I- 

5320 RETURN 

5330 G2*-G2*+" II" 

5340 RETURN 

5350 G2*-G2S+“ III“ 

5360 RETURN 
5370 G2S-G2S+“ IV" 

5380 RETURN 
5390 ZI »INT (ZI +.5) 

5400 Z2» INT( Z2+ . 5) 

5410 S8»CZ2-1J*3+CZ1-1)*24+1 
5420 Z3-0 

5430 IF MIDtCOS. 58 , 31 < > ASTHEN RETURN 
5440 Z3-1 
5450 RETURN 

5460 ■ RNFRNGSBILO UND NRH ABTASTER 
5470 ’ 

5480 FOR I-Sl-1 TO Sl+1 
5490 FOR 3»S2-1 TO S2+1 

5500 IF INTCI + .5XI OR 1NTCI+.51>8 OR INTC3+.5X1 OR INTC3+.5X9 THEN 
5560 

5510 A*»">B<" 

5520 Zl-I ** 

5530 Z2»3 

5540 GOSUB 5390 

5550 IF Z3»l THEN 5600 

5560 NEXT 

6570 NEXT 

5580 DO-O 

6590 GOTO 6670 

5600 DO-1 

5610 C$»"DOCK" 

5620 E-EO 
5630 P»PO 

5640 PRINT"Schirae werden fuers andocHen abgebaut” 

5650 S»0 
5660 GOTO 5700 

5670 IF K3>0 THEN CS»”*ROT*"i GOTO 5700 
5680 CS-"GRUEN" 

5680 IF E<EO* . 1 THEN C*-“GELB “ 

5700 IF DC2) > »0 THEN 5750 
5710 PRINT 

5720 PRINT“*** Heine Nahabtastung «beglich ***" 
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PRINT 
RETURN 

01 *-CHR»(223)+STRING»( 16.21 D+CHRK 227) 
02*-CHR*C227)+STRING*C 16 , 218)+CHR*C 2231 
PRINT 01* 

FOR I«1 TO 8 
PRINTCHR* C20T ) ! 

FOR 3»CI-1)*24+1 T0( I - 11*24+22 STEP 3 
PRINT“ ";MIO*CQ*, J+l . 1); 

NEXT 

ON I GOTO 5840, 5860, 5920, 5940, 5960, 5980, 6000, 6020 
5840 PRINTCHRSC219) s“ Sternentag"! INT{T*10>*. 1 
5850 GOTO 6030 

5860 PRINTCHR* (219) s “ Condition "i 

5870 IF C*-"*ROT*" THEN COLOUR 3:GOT05890 
5880 COLOUR 2 
5890 PRINT C* 

5900 COLOUR 16 
5910 GOTO 6030 

5920 PRINTCHR* C219) : " Quadrant "!Q1:".";Q2 

5930 GOTO 6030 

5940 PRINTCHRSC219) j“ Sektor "sSls".":S2 

5950 GOTO 6030 

5960 PRINTCHRSC219) ; " Torpedos “slNTCP) 

5970 GOTO 6030 

5980 PRINTCHR*(219);" Energie “sINTtE+SI 

5990 GOTO 6030 

6000 PRINTCHRSC213) j" Schirme "jINTCS) 

6010 GOTO 6030 

6020 PR 1 NTCHR* (219) j “ Kl Ingonen “,-INT(K9J 

6030 NEXT 
6040 PRINT 02* 

6050 RETURN 

6060 • WRS WUROE ZERSTOERT 

6070 ON RI GOTO 6080, 6100, 6120, 6140. 6160. 6180, 6200, 6220 
6080 G2*-"Warp Triebwerk" 

6090 RETURN 

6100 G2*. "Nahabtaster" 

6110 RETURN 

6120 G2t» "Fernab tost er" 

6130 RETURN 

6140 G2*»"phaserkontrolle" 

6160 RETURN 

6160 G21»"Photonenroehren" 

6170 RETURN 

6180 G2*»“Schadenskont rol 1 e" 

6190 RETURN 

6200 G2**"Schl rmkont rol t e" 
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6210 RETURN 

6220 G2S-"Computer~ 

6230 RETURN 

6240 ' ENERGIEVERBRAUCH 
6260 ' 

6260 E-E-N-10 

6270 IF E>«0 THEN RETURN 

6280 PR INT "Zum beenden des Meneuvers muss Schirm- energle abgezogen w 
erden ■" 

6290 S-S+E 
6300 E-0 

6310 IF S<-0 TUEN S-0 
6320 RETURN 

6330 ' HL INGONEN FEUERN 
6340 IF K3< -0 THEN RETURN 

6350 IF 00< >0 THEN PRINT"Schi Ide der Sternenbasls schuetzten Enter 

prise"i RETURN 

6360 FOR I«1 TO 3 

6370 IF HCl. 3)<»0 THEN 6510 

6380 H-INTC CHC I . 3)/SQRCCH(I. 1 ) -St ) A2+C KC 1 . Z) -S2)ä2> )«C 2+RNDC O) )) 
6390 S-S-H 

6400 KCl. 3)-K(I, 31/C 3+RNDCO) ) 

6410 PRINT H:" Einheiten trafen Enterprise vom " 

6420 PRINT"Sektor"(KCI, Dl*. "{KCl. 21 
6430 IF S<-0 THEN 4590 

6440 PRINT"<Schllde auf"sS:" Einheiten gesunken»" 

6450 IF H<20 THEN 6510 

6460 IF RNOCO) > .6 OR H/S<-.02 THEN 6510 
6470 R1-RN0C81 

6480 DCR1)-DCR1)-H/'S-.5*RNDC0) 

6480 GOSUB 6060 

6500 PRINT"Schadensmeldung: ”:G2S:~ zerstoert” 

6510 NEXT 
6520 RETURN 

6530 ' SCHADENSMELDUNG 
6540 IF 0(6) >-0 THEN 6730 

6550 PRINT~Schadensmeldung ausser Funktion" 

6560 IF 00-0 THEN 1830 

6570 03-0 

6580 FOR 1-1 TO B 

6590 IF DCIXO THEN D3-D3+.1 

6600 NEXT 

6610 IF D3-0 THEN 1830 

6620 PRINT 

6630 03*03+04 

6640 IF 03>-l THEN D3-.9 

6650 PRINT"Technlker stehen bereit. um die Schaeden zu beheben" 

6660 PRINT"Vor gesehene Zei t i " j .OlmlNTC 100«D3) ! " Sternentage" 
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INPUT"Erlaubst Du die Reparatur C3/N) ~:At 

IF At < > "O" THEN 1830 

FOR 1-1 TO 8 

IF DCIXO THEN Ot I ) -0 

NEXT 

T-T+03+.1 

PRINT 

PRINT 

PRINT** Objekt Reparaturstadlua" 

FOR Rl-1 TO 8 
GOSUB 6060 

PRINT (32t: LEFTtCZt, 30-LENC (32t 5 ) : lNTC0CRn»10O)».01 




7280 ' BUECHEREICOMPUTER 

7290 IF 0(8X0 THEN PRINT”Co«puter Inaktiv ■"* GOTO 1830 

7300 INPUT~Coaputer ist bereit und wartet auf Eingabe "jA 

7310 IF A<0 THEN 1830 

7320 PRINT 

7330 H8-1 

7340 ON fl+1 GOTO 7450. 7730. 6830. 7240. 6960 
7350 PRINT 

7360 PRINT” «brufbare Funktionen 

7370 PRINT” O-Karte aller Abtastungen” 

7380 PRINT” 1-Status Report” 

7390 PRINT” 2-Photonentorpedodaten” 

7400 PRINT” 3-Ent rernung zur Basis” 

7410 PRINT” 4-Ent fernungsberechnung” 

7430 PRINT 
7440 GOTO 7300 


7460 PRINT 

7470 PRINT”Coaputeraurzeicbnung der Galaxis ":Ql»”,"iQ2 
7480 PRINT 

7490 PRINT” 1 2 3 4 5 6 7 8” 

7500 01**” "+STRI HG* C 31 .217) 

7510 PRINT 01* 

7520 FOR 1*1 TO 8 
7530 PRINT Ii 
7540 IF H8*0 THEN 7590 
7550 FOR J-l TO 8 
7560 PRINT” K’! 

7570 IF ZU, 31-0 THEN PRINTSTRING*( 3. 127) { : GOTO 7590 
7580 PRINT RIGHT»(STR*(Z( I . 31+1000). 3) i 
7590 NEXT 

7600 PRINTCHRM 225) : 

7610 GOTO 7690 
7620 Z4*I 
7630 Z5-1 

7640 30*INT( 15-.5«LEN(G2*)) 

7650 PRINT TAB (30) s G2*{ 
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7660 Z5-S 

7670 30-INTC39-.5«LEN(G2»)) 

7680 PRINT TABOO) < G2*S 
7690 PRINT 
7700 PRINT 01* 

7710 NEXT 

7720 GOTO 1830 

7730 • STRTUS REPORT 

7740 PRINT 

7750 PRINT- Status Reports“ 

7760 IP K9> 1 THEN X*-“en" ELSE X»-“" 

7770 PRINT"Noch"sK9 s “ Kl lngon"sX» j " uebrig" 

7780 PRINT "Die Mission muss ln" J . 1»INTC C T9+T0-T)*10) : “ Sternentagen“ 
7790 PRINT~beendet werden" 

7800 IF B9> 1 OR B9-0 THEN X*-"bosen" ELSE X*-~basis" 

7810 PR INT "Es glbt"sB9s" Sternen“sX* 

7820 GOTO 6530 
7830 * GEWONNEN 
7840 PRINT 
7850 PRINT 

7860 PRINT ' 

7870 PRINT" DU HAST ALLE KL INGONEN VERNICHTET“ 

7880 PRINT"Dir gebuehrt der Dank der gesaaten Milchst rasse 1 “ 

7890 PRINT“01e Foederatlon ernennt Dich zue" 

7900 PRINT" ADMIRAL" 

7910 PRINT"und gibt Olr das Koeeando ueber dle"sRND< 10) i “Rauef lot t e. de 
eit Du auch weiterhin Klln-gonen jagst ■“ 

7920 IF INKEY* THEN 7920 
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Run to Morl och *5 Tower 


Ruf den folgenden Selten rinden Sie das Llstlng eines 
Rbenteuerspiels. bei des Sie durch Verhandeln, Kämpfen. 
Forschen u.s.w. versuchen sollen, das Endziel (Eroberung des 
• Mor lock-Towers ' ) zu erreichen. 

Ie Programal ist Ing finden Sie ab Prograaazel l e 7150 die Spiel- 
anleitung. Beachten Sie. daß das eigentliche Spiel in Englisch 
ablSurt - die wichtigen Begriffe werden größtenteils in der 
Anleitung erklärt, ta schl leasten Fall müssen Sie halt aal 
ein Wörterbuch zur Hand nehmen. 

Für dieses Programm muß Ihr Colour-Genie mit 3 ZK RAM aus- 
gerüstet sein. 

Programal ist ing: 


- I 

10 C0L0UR16 
20 GOSUB 9160 
30 CLS 

40 PRINT e 400, “BRAUCHEN SIE EINE ANLEITUNG (3/N) : CHRSl 14 ) ! 

50 AS- INKEYS 

60 I FAS- “N“ THEN 80 

70 IFA$-"0" THEN GOTO 7150ELSE GOTO 50 
80 CLEAR 132: PRINTCHRSl 15) 

90 DIN OSO) , 0S( 17) , 0(32. 4). 0(17. 6) 

100 CLS 
110 GOSUB 150 
120 GOSUB 8800 
130 GOSUB 7040 
140 GOTO 220 

150 DATA 7. 255 , 8. 16. 9. 16, 10. 16. 13. 16 

160 RESTORE 

170 FOR 1-1 TO 5 

180 READ XX. YY 

190 SOUNO XX, YV 

200 NEXT ■ • 

210 RETURN 

220 IF INKEYS THEN GOTO 220 
230 CLS 
240 C- 17408 

250 0(17. ll-RNOl 1551+100 
260 SP-RND(6) 

270 ST-RND(IO) 

280 CH»RN0(6) 

290 11-10 

300 MC «6 

310 PL-880 

320 L-40 

330 BQ -223 

340 Sl-223 

350 DS-"want to“ 

360 WS-”which Item'»" 

370 ES-"don’t have anyi“ 

380 HS-"how aeny'»" 

390 MS*"don’t have that *any>" 

400 YS-"you‘re was t ing ay tiae>“ 
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DATA67 CASTLE. 82 RUIN. 39 CAVE.84 TOWER. 107 CITY. 80 PILGRIMS, 87 WIZ 
..78 0GRES.83 SOLDIERS 

DATASIEGE TOWERS. SMALL BORT . GRAPPL ING HOOKS. OIL LAMPS. AXES. SHOVELS 
. LEATHER 3ERK INS, CHAIN MAIL. PLATE ARMOR, SH IELOS . BROAD SWORDS.LONG 
.CROSSBOWS. RATIONS. LARGE KEY, GOLD COINS 

lATA 1500, 2500., ISO, 255., 15. 30,, 5, 20., 10, 30,. 10. 20, . 15. 25,. 
40. 2. 25, 80, 4. SO. 100. 8. 3, 20. 2. 10. 50. 5. 11, 50. 5. 18. 
4. 4, 15. ,1, 5,. .26. 1. 

FOR I-l TO 9 
READ DtC I ) 

NEXT 

FOR 1-1 TO 17 
READ OK!) 

NEXT 

FOR I-l TO 17 
FOR 3-2 TO 4 
REAO OCI. 3) 

NEXT 3. I 


> PRINT ( 21S . "pleose woit" 

> COLOUR 6 

> PRINT « 256 , STR I NG$ (11.211) 

> COLOUR 16 


DU. 2)»RNDC6> 

DC2. 2) -RN0C6) +8 
DC1. 3)-RNDC30)+l 
DC2 . 3)-RNDC30)fl 
FOR 1-3 TO 32 
DCI. 41-1 
REAO DCI. U 
DCI. 21-RN0C14) 

OCI. 3) -RNDC301+1 
IF DCI, 21-8 THEN 700 
FOR 3-1 TO I 

1F DCI. 21-DC3. 21THEN IF OCI. 3)' 
NEXT 3, I 
FOR 1-8 TO 14 

IF RNDC 10) >5 THEN OCI. 11-RNDC8) 
NEXT 

OC 15. I ) -RNDC 25) + 15 
A-RN0C7) 

B-RN0C32) 

SL »RNO C 384 ) + 1 7S00 
30SUB 6610 
N-C+B+AXL 
Fl-1 

GOSUB 2150 
G0SU8 3680 
GOSUB 3360 
GOSUB ISO 
EG-EG+1 

IF DF THEN 1030 
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1030 


1F TW<«M*100 THEN 
970 G05UB 7020 
980 PRINT e PL. "carring to auch'") 

990 GOSUB 6930 
lOOO GOSUB 2090 
1010 GOSUB 6610 
1020 GOTO 880 
1030 GOSUB T020 
1040 C OL OUR 2 

10S0 PRINT S PL . "what non SIRE"»") 

1060 COLOUR 16 
1070 A»."IUNSEW" 

1080 GOSUB 1940 

1090 IF 0-0 THEN 1080 

1100 ON Q GOSUB 2090. 2660 

1110 IF fl-1 OR Q-2 THEN GOSUB 6610 

1120 IF Q-5 ANO B<40 THEN B-B+l 

1130 IF 0-4 AND A< 15 THEN R-A+l 

1140 IF 0-6 AND B>0 THEN B-B-l 

1150 IF 0-3 ANO A >0 THEN A-A-l 

1160 IF A08 OR 0C2. 1)>0 THEN 1230 

1170 GOSUB 7020 

1180 PRINT • PL . "YOUR MEN CAN’T SWIM 1 ": 

1190 GOSUB 6930 
1200 A-A-l 

1210 IF Q-3 THEN A-A+2 

1220 GOTO 8B0 

1230 F-F+l 

1240 P-OtlS, 11 -fl/2 

1250 IF F< 10 THEN 1300 

1260 F-0 

1270 0(15, ll-P 

1280 IF P< M THEN GOSUB 7020 s PRINT « PL . "FOOD LOW>":s GOSUB 6930:IF 0( 
15. 1X0 THEN 0( 15. 13*0 

1290 IF P<M/2 THEN P-RNOCM/3) : GOSUB 7020: PRINT « PL, P"«en dledi":: 

M-M-P; GOSUB 6930 

1300 MC-HC+1 

1310 FOR 1-1 TO 32 

1320 IF A-OCI, 23THEN IF B-OCI. 3ITHEN PORE N. S1 s GOTO 3640 

1330 NEXT 

1340 POKE N, S1 

1350 N-C+APL+B 

1360 IF PEEHCN3 < > 131 THEN Sl-PEEHCN) 

1370 OF-O 
1380 SWF-0 
1390 MF-0 
1400 GOSUB 7020 

1410 PRINT « PL . “you are ln tha "i 
1420 Bt-"v*i Iderness" 

1430 IF A-8 THEN B*-"river" 

1440 IF B>18 THEN IF A<8 THEN BJ «"nountalns" J MF-1 s F-F+.5 
1450 IF Sl-130 THEN 8S-"swa»p": SWF-1 

1460 IF Sl-135 THEN PRINT"shadow of":! GOSUB 6960: PRINT t PL."the dre 
adad aorloch’s toweri": GOSUB 6960: GOTO 3390 
1470 GOSUB 150 
1480 ’ 

1490 FOR 3-0 TO 95 
1500 GOSUB 160 
1510 ’ 

1520 FOR 3-0 TO 140 
1530 GOSUB 150 
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1540 

1S50 PRINT B*; 

1560 POHE N. 131 
1570 GOSUB 6770 
1580 BT-0 

1590 FOR X-l TO 32 
1600 IF ABSCfl-OCX. 2)) >2 THEN 1710 
1610 IF ABSC8-0CX, 3)) >2 THEN 1710 
1620 IF OCX. 41*1 THEN OCX, 4)-0 
1630 FOR Y«1 TO 9 

1640 IF VflLCDICVnoDCX. DTHEN 1700 
1650 IF Y>5 THEN BT *Y 
1660 GOSUB 7020 

1670 PRINT t PL, MlOtCOSC Y} . 4) i" neor": 

1680 GOSUB 6930 
1690 GOTO 1710 
1700 NEXT Y 
1710 NEXT X 

1720 IF R> 12 THEN IF B>22 THEN GOSUB 7020i PRINT # PL.’TITAOEL neor"? ! 
GOSUB 6930 

1730 IF SWF THEN IF RNOC100X50 THEN GOSUB 7020: PRINT • PL. ”2 «er» srs 
stuck ln quieksend ' : M-M-2: DF-1: GOSUB 6930: GOTO 1750 
1740 IF MF RND Sl< >32 THEN IF RNOC 100) <50 THEN GOSUB 7020: PRINT • PL, 
"2 een feil lnto a deep rovine'":: M«M-2: DF-1: GOSUB 6930 
1750 IF BT THEN 880 
1760 BC-BC+1 
1770 IF BC < 3 THEN 880 
1780 BC-0 

1790 FOR 0-23 TO 32 

1800 IF DC3. 4 ) *0 THEN DCO, 4)«1: POHE C+DCO, 3)+0C3. 2)*L. BO 
1810 X-RN0C15) 

1820 Y-RNOC40) 

1830 IF X-8 THEN 1810 
1840 FOR ZZ«1 TO 32 

1850 IF X-DCZZ, 2) THEN IF Y-OCZZ. 3)THEN IF 0<>ZZ THEN 1810 

1960 NEXT ZZ 

1870 DCO, 2) *X 

1880 DCO. 3) ■ Y 

1890 NEXT 3 

1900 IF EX>0 THEN IF RNDC100)>80 THEN 3-RN0C6>+22: DCO, 2)»R: DCO. 3)- 

B: GOTO 1300 

1910 N-C+B+fl*L 

1920 POHE N. 131 

L930 GOTO 8 BO 

1940 BS- INKEY* 


1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 
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0-0 

IF 8*-"" THEN 1940 
FOR 1-1 TO LENCR») 

IF B*-MIO*CR*, I. DTHEN 0-1: RETURN 

NEXT 

RETURN 

fl*-"" 

0-0 

GOSUB 7020 
Bf- INKEY* 

IF B»< >"" THEN IF fl$CCB*)»13 THEN Q-VALCA*): 
IF B* < >"" THEN IF RSCC B* ) -8 THEN 2010 
IF BIO”” THEN fl*»fl*+B* : PRINT 8 PL. fl*» 

GOTO 2040 
CLS:COLOUR 2 

PRINT TRBC 11) "INVENTORY" 


RETURN 



ITEM 


QUANT , 


TOTAL" 


2110 PRINT 
2120 PRINT"! 

2130 Fl *0 
2140 ZL-0 
2150 WV-0 
2160 TW-0 
21T0 FOR I»1 TO IT 
21B0 IF 0(1. 1)»0 THEN 2260 
2190 3»0t 1,1) 

2200 H-OC I , 2) 

2210 TW-TW+34H 

2220 IF Fl »0 THEN GOSUB 2550s ZL-ZL+ltIF ZL-7 THEN GOSUB 6530s ZL-0 
2230 X-OCI. 4) 

2240 IF 3>M THEN 3-M 
2250 WV-WV+OäX 
2260 NEXT 

2270 IF Fl THEN RETURN 
2280 PRINT 
2290 PRINT 

2300 IF Q«3 THEN RETURN 

2310 COLOUfi 2 s PRINT"TOTAL WEIGHT" TW" LBS. " 

2320 PRINT"your“ M" men ean carry" M*100 

2330 IF Z-5 THEN 6080 

2340 PRINT • PL. Di" drop anythinaT"! 

2350 FOR W-l TO 30 

2360 NEXT 

2370 Ai-INKEVf 

2380 IF Ai-"" THEN 2370 

2390 IF Ai< >"Y" THEN Q-ls RETURN 

2400 GOSUB 7020 

2410 PRINT • PL, Wi; 

2420 GOSUB 6960 
2430 GOSUB 2010 
2440 IF Q>17 THEN 2400 
2450 I-Q 
2460 QT-OU. 1) 

2470 IF QT-0 THEN GOSUB 7020: PRINT t PL, Ei;s GOSUB 6960: GOTO 2340 
2480 GOSUB 7020 
2490 PRINT i PL. Hi; 

2500 GOSUB 6960 
2510 GOSUB 2010 

2520 IF Q>QT THEN PRINT i PL. Hiss GOSUB 6960: GOTO 2340 
2530 OCI, D-QT-Q 
2540 GOTO 2090 

2550 COLOUR 5s PRINT MIO$(STRi( I ) , 2)" ": 

2560 IF I < 10 THEN PRINT" "s 

2570 PRINT Oi( I) : TAB(18)0: TABC23)f1I0iCSTRiCK) , 2): TAB< 27)MI0t(STRi( 

K*3). 2) 

2580 RETURN 
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27 JO GOSUB 6960 
2720 GOSUB 2010 
2730 IF Q > 1 7 THEN 2660 
2740 i-a 
2750 P-0(I. 1) 

2760 IF P-0 THEN GOSUB 7020! PRINT 8 PL, E*:: GOSUB 6960: GOTO 2920 
2770 IFCI-16 AND Z-130RU-6 RNO Z-2)0R(I-4 BND Z-330RU-3 AND Z-43THEN 
2900 

2790 IF 1*7 AND DF-1 THEN 3320 
2790 GOSUB 7020 

2900 PRINT 8 PL, 0*(I):" - no effect": 

2810 GOSUB 6960 -- 

2820 GOSUB 7020 

2830 PRINT 8 PL , "soaething elseT”; 

2840 GOSUB 6930 
2850 Al« INKEY* 

2960 IF A*-“" THEN 2850 
2870 IF A*-"Y" THEN 2660 
2880 GOSUB 6610 
2890 RETURN 
2900 GOSUB 6610 
2910 GOSUB 7020 

2920 PRINT 8 PL . "you' re ln a ";nlD*(0*(Z3 , 43? 

2930 GOSUB 6930 

2940 3-0 

2950 GOSUB 7020 

2960 PRINT » PL,"SEARCH or LEAVE*>" : 

2970 A*- INKEY* 

2980 IF A*-*’" 7HEN 2970 

2990 IF A*-"S” THEN 3-3+10: GOTO 3020 

3000 GOSUB 2590 

3010 RETURN 

3020 SF-0 

3030 IF RND( 1003 >90 THEN SF-Z : SU-1: Z-9: GOTO 4110 

3040 IF RNO( 1003 >3 THEN PRINT 8 PL.“there*s nothing here'”:: GOSUB 693 
0: GOTO 2950 
3050 GOSUB 7020 

3060 PRINT 8 PL."there 1* a CHEST here'"» 

3070 GOSUB 6930 

3080 IF RNO C 1 00 3 > 90 THEN 3260 

3090 IF D(AL, 43 — 1 THEN GOSUB 7020: PRINT 8 PL."ifs enptyl":: GOSUB 

6930: GOTO 3200 

3100 OC AL . 43--1 

3110 GOSUB 7020 

3120 PRINT 8 PL , "containlng”: 

3130 IF 0(16, 1 3 OR RN0(1003>20 THEN 3170 
3140 PRINT" a ":0*C 16) : 

3150 0(16, 13-1 
3160 GOTO 3200 
3170 3 -RNO (500 3 +50 
3180 PRINT J. 0*C 173 : 

3190 0(17. 13-0(17. 1 3+3 
3200 GOSUB 6960 
3210 GOSUB 7020 

3220 PRINT 8 PL."Better leave non": 

3230 GOSUB 6960 
3240 0*0 
3250 GOTO 3000 
3260 3-RN0C2) 

3270 IF M>20 THEN 3-RND(5) 

3280 GOSUB 7020 

'3290 PRINT 8 PL/'Ifs a TRRP" 3"men are hllled”: 
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r 3300 M-M-3 
3310 GOTO 3200 
3320 GOSUB T020 

3330 IF RNOt 100) <80 THEN PRINT 0 PL , "The rope broke-it’s uselass novs": 
i GOSUB 6960i 0t7. 1J-0C7, 1 >- 1 i OF-O ELSE PRINT S PL , ”You seved the»' 
“I! GOSUB 69601 OF-Os M-M+2 
3340 GOSUB 6610 
3350 RETURN 

3360 IF H>0 THEN RETURN 

3370 PRINT «PL,** RLL YOUR MEN RRE DERO'" 

3380 ENO 

3390 IF TW<2400 THEN GOSUB 7020i PRINT t PL , "Your arey 1» not strong e 
nough "! 1 GOSUB 6990s GOSUB 7020s PRINT * PL . "to aake succes tikely'":: 
GOSUB 6390 

3400 IF 0C1. l)-0 THEN GOSUB 7020s PRINT I PL . "The Mails ore to high"s 
s GOSUB 6990: PRINT « PL,"for you to besiege the tower'":: GOSUB 6990 
3410 GOSUB 7020 
3420 PRINT B PL, OS: 

"=5430 GOSUB 6930 

3440 PRINT 6 PL , "Attach or Leave"»": 

3450 AS -"LR" 

3460 GOSUB 1940 
34T0 IF Q-0 THEN 34S0 
3480 IF 0-2 THEN 3520 

3490 IF RNOC 100) >70 THEN I -RN0U1/10)M-11- I : PRINT 6 PL."A volley of arr 
ons " i s GOSUB 6930: GOSUB 7020: PRINT B PL."fro« the tower has killed": 

I GOSUB 6990: GOSUB 7020s PRINT B PL, I"or your een'":: GOSUB 6990 
3500 A-A-l 
3510 GOTO 1300 
3520 FA- 1 

3530 BM-RND(40)»160 

3540 IW-20 

3550 BW-2000 

3560 SU-0 

3570 GOTO 4500 

3580 1 -TW/M 

3590 FOR SP-1 TO 9 

3600 IF 10*SP>-I THEN 3620 

3610 NEXT 

3620 SP-10-SP 

3630 RETURN 

3640 AL- 1 

3650 P-0( I . 1 ) 

3660 FOR Z-l TO 9 

3670 IF P< > VAL (DSC 21 ) THEN NEXT: GOTO 880 


3680 

3690 

3700 

3710 

3730 

3740 

3750 


3770 

3780 

3790 


3810 


k 


SU-0 

IF Z>5 THEN 4110 
GOSUB 7020 

PRINT • PL, "you have coee to a "s MIDI ( OS (Z) . 4): 
GOSUB 6930 

ON Z GOTO 3740, 3790, 3850, 3880, 3910 
PRINT B PL, "the way iS barred by a stout”; 

GOSUB 6960 

PRINT B PL . "door with an iron lock' **l 

GOSUB 6960 
GOTO 880 

PRINT B PL, "the entrance is Illied with": 

GOSUB 6960 
GOSUB 7020 

PRINT B PL,"drifted send ' “ » 

GOSUB 6960 
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38S0 


3860 

3870 


3300 
3910 
3920 
3930 
3940 
39S0 
3960 
3970 
3980 
3390 
<4 000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 

4120 

4130 


GOTO 880 

PRINT S PL . ” 1 1 ' s to dark to seei": 

GOSUB 6960 
GOTO 880 

PRINT e PL . "there ls no visible entrance'"! 

GOSUB 6960 
GOTO 880 

IF MC <6 THEN 4030 
MC«0 

FOR 1-1 TO 15 
OU. 55-0 

IF RNDC 100) >50 ORCI-1 AND A>8) THEN IF I<15 THEN 4020 
01 I, 55 -RNDC 205 
V-OU, 3) 

GOSUB 6590 
OU. 65 -V 

IF 1-1 THEN OU. 55-1 

IF 1-15 THEN OU, 55-RNDC 1005+M 

NEXT I 

GOSUB 7020 

PRINT • PL."Lenve.Buy nt nnrket . InventoryT": 
R*-“LBMI“ 

GOSUB 1940 
IF 0-0 THEN 4030 

IF Q-l THEN GOSUB 2590: GOSUB 6610: GOTO 880 
IF 0-4 THEN GOSUB 2090: GOTO 4030 
GOTO 6360 
GOSUB 150 

GOSUB 7120 


4150 GOSUB 7020 

4160 PRINT S PL . "You hnve encountered n band or"; 

41 TO GOSUB 6930 
4180 GOSUB 7020 

4190 PRINT S PL. MIDS<DSCZ5. 45» 

4200 GOSUB 6930 

4210 BM-RN0CM+M/45+INTCEG/105 

4220 BS-RNOUO) 

4230 8X-RN0C INTCEG/10) 5 
4240 SB-RNDC 105 
4250 BI-Bh 
4260 BX-INTCBX5 

4270 IF Z<8 THEN GOSUB 7020: PRINT « PL.“they hnve nn ESCORTi";: GOSUB 
6930 

4280 IU»RNO(8)~10MCEX>2) 

4290 BU-BMxIU 
4300 GOSUB 7020 

4310 PRINT » PL . "There »re" BM”.": 

4320 IF IW<6 THEN PRINT" LIGHTLY": ELSE IF I>5 AND IW<15 THEN PRINT" U 
ELL": ELSE PRINT"HEAV ILY" 1 
4330 PRINT" arned": 

4340 GOSUB 6930 
4360 IF SU THEN 4470 
4360 GOSUB 7020 
4370 PRINT f PL. OS: 

4380 GOSUB 6930 

4390 PRINT > PL ."At tacH.Run or be Frlendly'»" f 
4400 GOSUB 6930 
4410 AS-"ARF" 

4420 GOSUB 1940 
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* 

/ »430 ON Q GOTO »»50. 4860. 5020 
»440 GOTO 4360 
»450 SU“- 1 

4460 IF RNDC 100) > . 50 THEN SU«0: GOTO 4500 
44T0 GOSUB 7020 
4480 B*»"they" 

4490 IF SU»1 THEN B*-"you"t PRINT 9 PL. 6»” «ere surprised"! i GOSUB 6 
930 

4500 Fl-1 
4510 GOSUB 2150 
4520 BW -SH« IW 
4530 CLS 

4540 PRINT TftBt 12) ”You"tTAB( 22) "Thea" 

4550 PRINT"Men" TflBC12)Mt TABC22)BM 
4560 PRINT"Weapons"»TABC12)WVs TRB(22)BW 
4570 PRINT "Experlerxce" tTABC 12 )EX i TABC22)BX 
4580 PRINT 9 400,"LUCK"; 

4590 GOSUB 150 
4600 ’ 

4610 I-RNDC100) 

4620 3-RNDC100) 

4630 PRINT 9 415. I” “ 3s 

4640 A*- INKEY* 

4650 IF fl*-“" THEN 4590 
4660 I“I-SU«10 
4670 3-3+SU*10 
4680 TW-WV+I+ST*S+EX*5 

4690 IF FA THEN IF 0(1, 1)*0 THEN TW-TW/5 
4700 WT-BW+3+SB«2+BX»2 

4710 M-M+INTC C WT> TW) «RNOC M/l 0) +C TW> WT) «C RND C M/20) - 1 ) ) 

4720 BM-BM+ INT ( ( TW> WT) »RNDC BW/ 10 ) ?( WT>TW) «( RNOC BM/20) - 1) ) 

4730 IF BM<0 THEN BM-0 
4740 GOSUB 3360 
4750 PRINT 

4760 PRINT“Survivors“:TAB( 123(1; TAB ( 221 BH 
4770 IF BM-0 THEN 5240 

4780 IF BM <BI/4 AND RND(100)>50 AND FA-0 THEN 5050 
4790 PRINT 

4800 PRINT"FlBht, Rur» or Terms?" 

4810 A*-"FRT" 

4820 GOSUB 1940 

4830 IF 0“0 THEN 4790 

4840 IF Q-2 THEN 4860 

4850 IF Q-3 THEN 4920 ELSE 4500 

4860 IF SB>B OR RNDC 100) >90 OR FA-1 THEN GOSUB 7020t PRINT 9 PL . "You 
got away I ” : : GOSUB 6930t FA-Oi GOTO 5150 
4870 GOSUB 7020 

4880 PRINT 9 PL . "They caught you!~t 

4890 GOSUB 6930 

4900 SU*1 

4910 GOTO 4470 

4920 I-WT*RND( 100) 

4930 3-TW*RN0C 10)«CH 

»940 GOSUB 6930 

4950 IF 3>I AND FA-0 THEN 5000 

4960 PRINT 9 PL. R* t 

4970 GOSUB 6930 

4980 SU-1 

4990 GOTO »470 

5000 BH-RNDCBH) 

5010 GOTO 5050 
^5020 GOSUB 7020 
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GOTO 4470 


5030 IF RNOC 10) >CH THEN PRINT 9 PL. R* ; : GOSUB 6960« SU-1« 

5040 Btt-RNOCBMl 

5050 PRINT 9 PL. Brt“wlll Join you'"i 
5060 GOSUB 6930 
5070 M-n+BM 
5080 PRINT 

5090 PRINT"Thoy heve:" 

5100 PRINT 
5110 FOR 1-8 TO 15 
5120 IF RNDC 100) >50 THEN QT-RNDCBM ) 1 0(1. 11-0(1. 1 1 +QT t PRINT QT : 0*( 
II 

5130 NEXT 

5140 IF RNOC 100) >90 THEN PRINT"Too bad they had no GOLD'" ELSE OT-INTC 

RND(5)*( CEG/lOl+l 1 *BM) : 007, 11-007. 11+QT: PRINT QT: 0*071 

5150 EX-EX+1 

5160 PRINT 

5170 PRINT 

5180 PRINT 9 PL . "REftDY TO GO ON^": 

5190 A*-"A" 

5200 GOSUB 1940 

5210 IF SF THEN Z-SF: GOTO 2900 

5220 GOSUB 6610 

5230 GOTO 1780 

5240 IF FA THEN 6820 

5250 FOR 0-1 TO 2 

5260 GOSUB 150 

5270 * 


5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 


GOSUB 7120 

GOSUB 7120 
NEXT 

PRINT-YOU WON' 

BM-2 

PRINT"You aanaged to salvage:" 

GOTO 5110 

HC-0 

OC-O 

ZL-0 

CLS 

VF- 1 

PRINT"ITEM PRICE WT . QUANT." 

PRINT 

FOR 1-1 TO 151C0L0UR 3 
IF OCI, 51-0 THEN 5500 
PRINT M10*CSTR*(I1. 21" "s 
IF Kl© THEN PRINT" 

PRINT OKI); TABC1810CI. 61; TABC2310CI, 21; TABC27)0CI. 
ZL-ZL+1 

IF ZL-7 THEN GOSUB 6480« IF ZL-99 THEN 5510 
NEXT I 
HB-0 
Fl - 1 

GOSUB 2150 

PRINT"You hava" 0C17. 11 "Go Id Co ins" 

PRINT"Your aen are carrylng" TW"lbs" 

GOSUB 7020 
PRINT 9 PL. W* ; 

GOSUB 6960 
GOSUB 2010 
IF Q> 17 THEN 5560 
V-OCQ. 61 


5) 
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5930 GOSUB 7020 
6940 PRINT « PL. HS! 

5950 GOSUB 6960 
5960 GOSUB 2010 

5970 IF Q>OCX. 5) THEN PRINT 0 PL. MS.-: GOSUB 6960: GOTO 5930 

5980 IF Q*V>0C17. 1JTHEN GOSUB 7020: PRINT « PL. "not «nough GOLD'";: G 

OSUB 6960: GOTO 5930 

5990 OCX. 1)*0<X. 1)+Q 

6000 0C17. 1J-0C17, 1)-0*V 

6010 OCX, SJ-OCX. 5) -0 

6020 GOTO 4030 

6030 GOSUB 7020 

6040 PRINT « PL, V* : 

6050 GOSUB 6960 

6060 OCX. 6)-INT(0CX, 6)/4)+0CX. 6) 

6070 GOTO 4030 

6080 PRINT • PL. D*" seil anything-»". 

6090 RS-INHEYS 

6100 IF RS-"" THEN 6080 

6110 IF fi$< > "Y" THEN RETURN 

6120 GOSUB 7020 

6130 PRINT • PL. WS! 

6140 GOSUB 6960 
6150 GOSUB 2010 
6160 IF Q > 17 THEN 6120 
6170 1-0 

6180 IF OCI. l)-0 THEN PRINT « PL, ES;: GOSUB 6960: GOTO 6080 
6190 V-INTCOCI, 3)/C RNDC31+2)) 

6200 0L-5+RNDC5) - 10+C V>80) 

6210 HB-OCI. 3)+l 
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6650 HEXT 0, I 

6660 FOR 1-0 TO 38 STEP 2 

6670 POKE 17728+1. 132 : POKE 1-3776, B 

6680 POKE 17729+1. 133 ! POKE I-377S. 8 

6690 HEXT 

6700 FOR I»1 TO 21 STEP 2 
6710 FOR 3-0 TO 6 

6720 IF RND ( 1 0 1 > 6 THEN POKE 17426+I+0HL. 128i POKE 17427+*I+3»L . 129: P 
OKE I+3*L-4078,15 : POKE I+JxL-4077 . 1 5 
6730 HEXT 3. I 

6740 POKE 17999. 134j P0KE-3505.10 
6750 POKE 18000. 135: P0KE-3S04. 10 ' 

6760 POKE 18001. 136: POKE -3503. 10 
6770 POKE C+B+A«L. 131 
6780 FOR X-l TO 32 

6790 IF OCX. 41 <1 THEN POKE C+OCX. 2)*L+DCX. 3), 0(X, 1) : POKE C+DtX. 
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2) #L+DC X , 3) -21504,2 
6800 NEXT 
6810 RETURN 
"6820 CLS 
6830 FOR 1-1 TO 5 
6840 GOSUB 150 
6850 SOUND 4,89 
6860 GOSUB 7120 
6870 GOSUB 150 
6880 SOUND 4.176 
6890 GOSUB 7120 
6900 NEXT 

6910 C0L0UR51 PRINT 6 400." YOU'VE CONOUERED THE" : PRINT” 

FORCES": PRINT" OF THE EVIL ' ~ : PRINT" ALL HRIL THE VICTORI'I" 

6920 GOTO 6820 

6930 FOR WT-1 TO 300 

6940 NEXT 

6950 RETURN 

6960 FOR WT-0 TO 600 

6970 NEXT 

6980 RETURN 

6990 FOR WT-1 TO 1000 

7000 NEXT 

7010 RETURN 

7020 PRINT 9 PL. STRINGIC32. 32): 

7030 RETURN 

7040 PRINT 9 409. "RUN TO MORLOCK'S TOWER": 

7050 COLOUR 16 

7060 PRINT 9 454. "The ult leite": 

7070 PRINT 9 493 , "Adventure Gerne": 

7080 COLOUR 9 

7090 PRINT 9 850. "Press < RE TURN» to play": 

7100 COLOUR 16 

7110 RETURN 

7120 FOR WT-1 TO 25 

7130 NEXT 

7140 RETURN 

7150 CLS 

7160 COLOUR 5 

7170 PRINT"E INLE ITUNG: " 

7180 COLOUR 16 

7190 PRINT"IN DIESEM ADYENTURESPIEL SIND SIE DER FUEHRER EINER RAUBR 
ITTERBANDE UND STREIFEN DURCHS LAND. UM SICH GELD. WAFFEN UN 

0 NEUE SOLOATEN ZU BESCHAFFEN, UM SCHLIESSLICH IN DEN < MORLOCK'S " 
7200 PR INT"TOWER > EINZUDRINGEN. DORT MUESSEN SIE DANN GEGEN DIE KRAE 
FTE OES BOESEN KAEMPFEN UND DIESE BESIEGEN. UM SELBST HERR UEBE 

R DAS LAND ZU WERDEN. DAS SPIELIST IN ENGLISCHER SPRACHE GESCHRIEBEN," 
7210 PR INT "DA DIESE KUERZER UND PRREZISER ALS DIE DEUTSCHE IST." 

7220 PR INT "WENN MAN OEM SPIEL AUFMERKSAM FOLGT, WERDEN WOHL KEINE P 
ROBLEME AUFTRETEN." 

7230 PRINT 

7240 COLOUR 9 

7250 PRINT" < RETURN»" 

7260 COLOUR 5 
7270 A*. INKEY* 

7280 IF Al-"" THEN 7270 
7290 GOTO 7300 
7300 CLS 

7310 PRINT"LANOKARTE * " 

7320 COLOUR 16 

7330 PRINT"DIE LANDKARTE IST WAEHREND DER MEISTEN ZEIT SICHTBAR. SIE 
ZEIGT AN. WO SICH OERSPIELER. MIT OEM KLEINEN MAENNCHEN SYMBOLIST 
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ERT. GERADE BEFINDET UND WO DIE VERSCHIEDENEN INTERESSANTEN PUNKTE 

7340 PR INT "LOKALISIERT SIND. MAN KANN DIE SPIEL- FIGUR HIT DEN TASTE 
N FUER OIE VIER H IHMELSRICHTUNGEN , ALSO "i 

7350 COLOUR 3 
7360 PRINT"N" : 

7370 COLOUR 16 
7380 PRINT")ORTH." t 
7390 COLOUR 3 
7400 PR1NT"S": 

7410 COLOUR 16 
7420 PR I NT " ) OUTH . "i 
7430 COLOUR 3 
7440 PRINT" W"j 
7450 COLOUR 16 
7460 PRINT"IEST UNO 
7470 COLOUR 3 
7480 PRINT"E"! 

7490 COLOUR 16 

7500 PR1NT")AST BEWEGEN" 

7510 PR INT"FOLGENOE OBJEKTE WERDEN DARGESTELLT ; DA IST ZUM EINEN EI 

NE GEWELLTE LINIE. DIE SICH QUER DURCH DIE KARTE ERSTRECKT . SIE STELL 
T EINEN FLUSS DAR, OER NUR MITTELS EINES BOOTES DURCHQUERT WERDEN 
KANN. DIE GEPUNKTETEN FLAECHEN " 

7520 PR INT "STELLEN EINEN SUMPF DAR (SWAMP). IN OEM IHRE SOLDATEN EINSI 
NKEN KOENNEN. DIE DANN NUR MITTELS EINES SEILS (ROPE) GERETTET 

WERDEN KOENNEN. IM NOROOEST- " 

7530 PRINT"LICHEN TEIL DES GEBIETES BEFINOET SICH EIN GEBIRGE. DAS TE 
ILWEISE MIT STILI SIERTEN BERGEN ANGEDEUTET IST." 

7540 COLOUR 9 

7550 PRINT" < RETURN > " 

7560 COLOUR 16 

7S70 A4» INKEYS 

7580 IF A*."" THEN 7570 

7590 CLS 

7600 PR INT "GANZ IM SUEOOSTEN IST EINE BURGANLAGE SICHTBAR. DORT IST" 
7610 COLOUR 3 

7620 PRINT"<MORLOCK ' S TOWER>") 

7630 COLOUR 16 

7640 PRINT". DAS ENDZIEL IHRES ABENTEUERS. AUF DER KARTE SIND AUSSERDE 
M ZWEI ’H's. OIESE BEZEICHNEN DEN STAND-" 

7650 PR INT "ORT VON STAEDTEN. WO SIE VERSCHIEDENE " 

7660 PR INT "DINGE EINKÄUFEN KOENNEN. BEIM DURCH- WANDERN DER LANOSCH 
AFT ERSCHEINEN IN IHRER NAEHE MANCHMAL NOCH ANOERE ZEICHEN. 

DIESE HABEN DIE SYMBOLIK:" 

7670 PRINT"C » CASLTLE (BURG) c - CAVE (HOEHLE 00 

ER KAVERNE) R » RUIN (RUINE) T - TOWER 

(TURM) S * SOLDIERS (SOLOATEN) 

0 - OGRES (ORGS) 

7680 PR1NT"P • PILGRIMS (PILGER) W « WIZZARDS (GELEH 

RTE) 

7690 COLOUR 9 

7700 PRINT 

7710 PRINT 

7720 PRINT 

7730 PR I NT" < RETURN >" 

7740 COLOUR 5 
7750 A*- INKEY* 

7760 IF A*-"" THEN 7750 
7770 CLS 

7780 PRINT-STAOTBESUCH:" 

7790 COLOUR 16 
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7800 PRINT"Bfi INGT MAN SEINE FIGUR MIT EINER STADT (CITV) DECKUNGSGLE I 
CH. DANN KANN HAN DORT AUF DEN MARKTPLATZ GEHEN. DAS ANGE-BOT IST N 
ICHT IMMER VOLLSTAENDIG. UND MAN SOLLTE AUF DIE ARTIKEL ACHTEN. ” 
7810 PRINT-MAN BRAUCHT STEIGEISEN (GRABBLING HOOKSIUM IN EINEN TURM EI 
MORINGEN ZU KOENNEN, GENAUSO WIE OELLAMPEN COILLAMPS) UM IN HOEHLEN E 
INZUORINGEN. EIN BOOT WAERE NOETIG UM DEN FLUSS ZU UEBERQUEREN. UM 
IN EINE RUINE EINZUDRINGEN SIND " 

7820 PRINT "SCHAUFELN ( SHOVELS) NOETIG UND IN EINE BURG KOMMT MAN NUR 
MIT EINEM GROSSEN SCHLUESSEL , DEN MAN ABER NUR IM SCHATZ EINES TUR 
MS. EINER RUINE ODER EINER HOEHLE FINDEN KANN. AUCH IST ES SINNVOL 
LNAH RUNGSPAKETE t RATIONS) ZU KAUFEN. " 

7830 PRINT"UM DIE MANNSCHAFT SATT ZU HALTEN. DIE PREISE KANN MAN 

MIT IMAGINAEREN HAENDLER AUSHANDELN. INDEM MAN SICH AN DEM GEFOR 

OERTEN PREIS ORIENTIERT." 

7840 COLOUR 9 
7850 PR INT " < RE TURN > " 

7860 COLOUR 16 
7870 A*- INKEY* 

7880 IF AS-"" THEN 7870 
7890 CLS 
7900 COLOUR 5 
7910 PRINT"INVENTORY : " 

7920 COLOUR 16 

7930 PR INT "DAS INVENTORY IST EINE UEBERSICHT UEBER ALLE SACHEN. DIE MA 
N BESITZT. SOWIE DIE ANZAHL DER EIGENEN SOLDATEN UND DEREN TRAGKRAFT 
. WAEHLT MAN DAS INVENTORY IN" 

7940 PRINT "DET R WILDNIS. SO KANN MAN UEBER ES ARTIKEL WEGWERFEN 

. WAS NOETIG WIRD. WENNOIE SOLOATEN OIE GESAMTE LADUNG NICHT MEHR TR 
AGEN KOENNEN." 

7950 COLOUR 5 

7960 PRINT-EINDRINGEN:" 

7970 COLOUR 16 

7980 PRINT"WILL MAN IN EINE BURG. EINEN TURM. EINE RUINE ODER IN EINE 
HOEHLE EINDRINGEN. SOMUSS MAN SEINE FIGUR DAZU DECKUNGSGLEICHBRINGEN U 
NO 'U' FUER ’USE' BENUTZEN DRUECKEN. DANN WIRD DAS INVENTORY AUF- 
GELISTET "j 

7990 PRINT"UND NACH DEN ZU BENUTZENDEN ARTIKEL GEFRAGT. IST DIESER 
RICHTIG, SO WIRD DIE KARTE GEZEICHNET UNO MAN WIRD GEFRAGT, OB M 
AN SUCHEN ODER ODER DEN ORT VERLASSEN WILL. NACH ERFOLG- REICHER 
SUCHE KANN MAN ENTWEDER EINEN SCHATZ CCHEST) "| 

8000 PRINT"BZW. FEINLICHE SOLDATEN FINDEN" 

8010 COLOUR 9 
0020 PRINT"<RETURN>" 

8030 COLOUR 5 
8040 A*- INKEY* 

8050 IF A*-"" THEN 8040 
8060 CLS 

8070 PRINT-KAMPF:" 

8080 COLOUR 16 

8090 PRINT-MAN KANN MIT SOLDATEN ODER DER ESKORTE VON PILGERN ODER GE 
LEHRTEN KAEMPFEN. BEGEGNET MAN SOLCHEN GIBT DER RECHNER DIE ANZAH 
L UND DIE KAMPFSTAERKE (LIGHT. WELL ODER HEAVY! DER GEGNER AN. MAN " 
8100 PRINT~HAT DANN DIE WAHL MIT IHNEN ZU KAEMPFEN CATTAtK BZW. FIGHT) 
. WEGZULAUFEN(RUN) OOER SICH MIT INHEN ANZUFREUNDEN CFRIENOLY 

. BZW TERMS). DER KAMPF IST BE-ENDET. WENN SIE ODER OER GEGNER VER- 
NICHTET SIND. SIE GEFLUECHTET SIND " 

8110 PRINT"ODER FEINDE ZU IHNEN UEBERGELAUFEN SIND.", 

8120 PRINT"<RETURN>” 

8130 AJ-INKEY* 

8140 IF A*«"" THEN 8130 
8 ISO GOTO 80 
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8780 POHE -3001, 249 
8730 RETURN 
8900 COLOUR 14 

8810 PRI NTCHR* C 20S) i STRING* ( 38 , 202) : CHR» C 224 ) i 
8820 FOR W* 1 TO 21 

8830 PRI NTCHR* (202) ;STRINß*(38, 32) >CHR*(202) ; 
8840 NEXT 

8950 PRI NTCHR* (228) (STRINGK38.202) |CHR*(226 
8860 COLOUR 15 
| 8870 RETURN 

I 



I 

I 

[ 

I 

I 
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Bfifl 

Gehören Sie auch zu den Leuten, die «einen, «an aiisse ftlr 
seinen Computer möglichst viele sinnvolle Anwendungen finden 1 » 

Nun hier Ist eines Unser Colour-Genle-Programm "Bar" I 
Aus fast 60 verschiedenen Or inks-Rezepten sucht das Progra«« 
sicher einen Drink heraus, der Ihnen schaeckt . Dabei kann «an 
alle Rezepte ausgeben, bestimmt« Drinks nach ihre« Namen 
suchen, oder als Clou eine Liste der verfügbaren Zutaten 
eingeben, woraufhin das Colour-Genle alle Rezepte ausgibt, 
die mit den eingegebenen 2utaten gemixt werden können. 

Noch zwei Hinweise zu« Eintippen: 

- wir haben das Programm alt 40 Zeichen pro Zeile gelistet, 
daait Sie mit der Bl l dschirarormat ierung keine Schwierig- 
keiten haben. 

- Lassen Sie sich nicht schon beim Eintippen zua Probieren 
der Rezepte verleiten, sonst riskieren Sie u.U. etliche 
Tippfehler . 

(Für dieses Prograa« auO Ihr Colour-Genie 32K RAM haben. 
Programm! isting: 


10 POKE 16553. 255 
20 CLEAR 600 
30 DEFINT I. 3 

40 DEFSTR D. N, M, R, V, X. S. L 
50 0IM RCllJ, MC 1 1 1 . VC50J. LCS01 
60 ON ERROR GOTO 2860 
70 CLS 

80 FOR 1-1 T0 239 
90 C0L0UR RN0C16) 

100 PRINT"BAR ~i 

110 NEXT 

120 PRINT"BAR" j 

130 FOR 1-1 T0 500 

140 NEXT I 

150 COLOUR 2 

160 CLS 

170 PRINT • 405. "DRINKS. DR INMS AND MORE 
DRINKS I” 

180 FOR I-i TO 800 
190 NEXT I 
200 CLS 
210 COLOUR 2 

220 PRINT S 5. "«• — — «*» DRINKS . 

230 PRINT 

240 COLOUR 5 

250 PR INT"UOLLEN SIE" 

260 COLOUR 5 
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270 PRINT 

280 PR1NT”13 AUFLISTUNG ALLER VORHANDENE 
N REZEPTE” 

290 PRINT-2) WISSEN WAS SIE MIT IHREN ZU 
TATEN MIXEN KOENNEN” 

300 PR INT ”3) DAS REZEPT FUER EINEN GANZ 
BESTIMMTEN DRINK 
310 COLOUR 2 
320 PRINT 

330 PRINT”FUER DIE RUECKKEHR ZU DIESER L 
ISTE BITTE ”s 
340 COLOUR 3 
350 PRINT" 'R' 

360 COLOUR 2 

370 PRINT"ORUECKEN • 

380 0« INKEVS 

390 IF 0-"” THEN 3B0 

400 ID-VALCD3 

410 ON 10 GOTO 420. 680. 1740 
420 COLOUR 7 
430 PRINT 

440 PRINT-ZUM ANHALTEN OER AUFLISTUNG BI 
TTE ’ SH I FT <, S 'GLEICHZEITIG DRUECH 

EN” 

450 FOR 1-1 TO 200 

460 NEXT 

470 RESTORE 

480 REAO N 

490 PRINT 

500 COLOUR 16 

510 PRINT STRINGSI40. 2173: 

520 PRINT N 
530 COLOUR 5 
540 FOR 1-1 TO 400 
550 NEXT 
560 REAO M 
570 PRINT 
580 PRINT M 
590 PRINT 
600 1-0 
610 RE» INKEVS 

620 IF RE-”R“ THEN RE»"”:GOTO 200 

630 COLOUR 3 

640 READ MCI) . R( I) 

650 IF LEFTKRCI3, 1)»”«” THEN: N»R<I1: 
GOTO 490 

660 PRINT MI 13, Rt I ) 

670 GOTO 630 
680 PRINT 
690 COLOUR 14 

700 PRINT”BITTE TIPPEN SIE JEWEILS 3 (-3 
A3 FUER JEDE ZUTAT EIN. OIE SIE VORRAE 
T1G HABEN. ANDERNFALLS - N' EINTIPPEN." 

710 FOR 1-0 TO 50 
720 V(I)-”N” 

730 NEXT I 
740 1-0 
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750 L ( 0) ■ "ZUCKER" 

760 L(l) -"ZITRONE” 

770 LC2)-"0RANGE" 

780 L ( 3) • "ANANAS” 

790 LC4) -"GRAPEFRUIT" 

800 LC42) -"KIRSCHE" 

810 L(5) -"STAUSZUCKER" 

820 L C 6 ) - "ANGOSTURA" 

830 LCT) -"GRENADINE" 

B40 LC 8) -"WERMUT" 

850 L C9) -"GIN” 

860 LC 10) -"RUM" 

870 LC 1 1 ) -"WHISKY" 

880 L C 12) -"SEKT" 

890 LC 13)-"CURACA0" 

900 LC14) -"GRAND MARNIER" 

910 LC 15) -"COINTREAU" 

920 LC 16) »"APRICOT BRANDY” 

930 LC 17). "CHERRY BRANDY" 

940 L C 18) -"PRINZEN HIRSCH" 

9 SO LC19)-"MARASCHIN0" 

960 LC20)- "BANANENLIKOER" 

970 LC 21 ) -"KOKOSNUSSCREME " 

980 LC 22) -"PFEFFERMINZL IKOER" 

990 LC 23) -"CREME DE KAKAO" 

LC 24) -"KAFFEELIKOER" 

LC 25) -"CALVADOS" 

L C 26 ) - "CORD I AL MEDOC" 

LC 27) -"SOUTHERN COMFORT" 

LC 281- "WODKA" 

L C 29) ■ "COGNAC" 

LC 30) -"BRANDY" 

LC 31 ) «"PORT" 

LC 32) -"SHERRY" 

LC 33) -"ROTWEIN" 

LC 34) -"TON IC WASSER" 

LC3S) -“GINGER ALE" 

LC 36) -"ROSES LIME 3UICE" 

L C 37 ) -"TR INK SCHOKOLADE” 

LC 38) -"MOCCA" 

LC 39) »"E I " 

L C 40 ) • ~Z I TRONENSORBET" 

LC 41) -"VANILLE EIS" 

LC 42) -"TEQUILA" 

LC 43) -"CASSIS" 

LC 44) -"BENEOICTINE " 

LC45) -"CAMPARI" 

PRINT 

FOR 3-0 TO 45 
C0L0URC3 AND l)+2 
PRINT LO) i 

PRINT TAB C 20) t CHRtC 14) j 
X- INKEY* 

IF X-"" THEN 1270 
IF X-"3" THEN VCD-LC3): I-I + l 
PRINT X 
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000 

010 

020 

030 

040 

050 

070 

080 

090 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 



1310 NEXT 3 

1320 PRINT CHRSC15) s 

1330 PRINT 

1340 PRINT"SUCHE BEGINNT - BITTE WARTEN" 

1350 RESTORE 

1360 READ N 

1370 READ M 

1360 1-0 

1390 READ MCI). RC I) 

1400 IF LEFTtCRCI), l)."**' THEN: NA-RCI) 

! RCI)«"": GOTO 1430 

1410 I-I + l 

1420 GOTO 1390 

1430 1-0 

1440 0-0 

1450 RE« INKEY* 

1460 IF RE«~R~ THEN: RE«“": GOTO 200 
1470 IF LEFTiCRCI), LENC VC3) ) )«VC 3 3THEN 
1550 

1480 3«3+l 

1490 IF VC3)o"N" THEN 1470 
1500 FOR I«0 TO 11 
1510 RCI)«"" 

1520 NEXT I 
1530 N»NA 
1540 GOTO 1370 
1550 I-t+1 

1560 IF RC I ) < > THEN 1440 

1570 PRINT 

1580 COLOUR 16 

1590 PRINT STRING* C 40. 217) 

1600 COLOUR 5 

1610 PRINT N 

1620 PRINT 

1630 COLOUR 2 

1640 PRINT M 

1650 PRINT 

1660 I«0 

1670 COLOUR 3 

1680 PRINT MCI). RCI) 

1690 I-I+l 

1700 IF HIDO” THEN 1670 
1710 FOR 1-1 TO 999 
1T20 NEXT I 
1730 GOTO 1500 
1740 PRINT 

1750 INPUT"WELCHEN DRINK SUCHEN SIE":S 

1760 IF RIGHT*CS, 1)«” " THEN: S«LEFT*CS 

. LENCS)-1): GOTO 1760 

1770 S«"* ” +S 

1790 RESTORE 

1790 FOR I«1 TO LENC5) 

1800 IF MID*CS, I. 1)«“ ” THEN IF f1ID*CS 
, 1+1. 1 ) ■" " THEN: S«LEFT*CS, Il+RIGHT* 
CS. LEN(S)-I-l): GOTO 1790 
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1610 NEXT 
1820 PRINT S 
1830 READ 0 
1840 RE- INKEY* 

1850 IF RE-*’R" THEN: RE«"*' : 40 

1860 IF LEFTKD. LENCS)X>S THEN 1830 

1870 N»0 

1880 PRINT 

1880 PRINT N 

1800 I«0 

1810 READ M 

1820 PRINT 

1830 COLOUft 16 

1840 PRINT STRING *140. 2 17) 

1850 PRINT M 
1960 PRINT 

1870 READ MCI). R( I) 

1880 IF LEFT* C R( I ) . 1)»'*«" THEN 2040 
1880 COLOUR5 
2000 PRINT (1(1). 

2010 C0L0UR2 
2020 PRINT R( I ) 

2030 GOTO 1970 
2040 RE-INKEY* 

2050 IF RE< >"R" THEN: RE-""i GOTO 2040 E 
LSE 200 

2060 OATA« RAUHREIF-COCKTAIL , SHAKER MIT 
EIS - ZUTATEN - GUT SCHUETTELN 

UNO IN EIN COCKTAIL- GLAS MIT ZUCKER 
RANO SEIHEN. 1/3, GIN. 1/3. CURACAO TRIP 
LE SEC. 1/3. ZITRONENSAFT. 1 SPRITZER. R 
UM 

2070 DATA O.» LONG LUCAS. MIXBECHER MIT 
EIS - ZUTATEN - MIT SEKT AUFFUELLEN - 1 
ORANGEN - SCHEIBE EINLEGEN - MIT 

ZITRONENSCHEIBE GARNIEREN. 1/2, GIN, 1/ 
2. CURACAO ORANGE. SAFT 1. ORANGE, 1/2. 
ZITRONE 

2080 DATA 0.» INFERNO. IN EINER SEKTSCHA 
LE ZUTATEN MIT ZITRONENSCHALE ABSPRITZEN 
- OANN MIT EINEM SCHUSS FRISCHEM 0 

RANGENSAFT UNO SEKT AUFFUELLEN - EISS 
TUECHE BEI GEBEN. 1/3. GIN. 2/3. CURACAO 
ORANGE. . ORANGENSAFT, . SEKT 
2080 DATA 0.« GIN FIZZ. IM SHAKER MIT KL 
E1NGEST0SSENEM EIS ZUTATEN HRAEFTIG 

SCHUETTELN IN EIN GLASGEBEN UND MIT SO 
DA AUFSPRITZEN. 2/3. GIN. 1/3. ZI TRONENS 
AFT. 1 TL. STAUBZUCKER 

2100 DATA 0.» SILVER MOON, ZUTATEN MIT E 
IS MIXEN UND EINER HALBEN SCHEIBE ORANG 
E GARNIEREN, 1/3, GIN. 1/3. APRICOT BRAN 
DY. 1/3, ORANGENSAFT 

2110 DATA 0.» MARTINI DRY. ZUTATEN MIT E 
ISWUERFELN IM MIXBECHER GUTVERRUEHREN : 0 
URCHSEIHEN - IM COCKTAILGLAS 

MIT OLIVE SERVIEREN - NACH WUNSCH MIT ZI 
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TRONENSCHALE ABSPRITZEN. 2 DRSH . ORANGE - 
BITTER. 1/2, WERMUT DRV. 1/2, GIN 
2120 DATA 0,* WHITE LADY. SHAKER MIT EIS 

- ZUTATEN - GUT SCHUETTELN UND 

IN EIN COCKTAIL- BLAS SEIHEN. 3 

/6. GIN. 2/6. CURACAO TRIPLE SEC. 1/6. Z 
ITRONENSAFT 

2130 DATA 0,* LUCAS' LEMON SPECIAL. ZUTA 
TEN MIT 2 EL GESTOSSENEM EIS INS LONG 
ORINKGLAS - MIT MINERALWASSER AUFF 

UELLEN. 1 GLAS. ZITRONE. 1 GLAS. GIN. 2 
GL AE SER . GRAPEFRUIT-SAFT. 1, KIRSCHE 
2140 DATA 0,* ADRIA LOOK, ZUTATEN IM MIX 
BECHER KURZ SCHUETTELN s INEINE SEKTSCHAL 
E GIESSEN UND MIT SEKT AUFFUELLEN. 2 CL . 
GIN, 2 CL, CURACAO. 2 TL. ZITRONENDSAFT 
(NATUR), . SEKT ZUM AUFFUELLEN 
2150 DATA 0.» GIN TONIC. ZUTATEN AUF EIS 
GEBEN UND MIT TONIC AUFGIESSEN. 1 G 

LAS, GIN, 1 SCHEIBE, ZITRONE. . TONIC WA 
SSER ZUM AUFFUELLEN 

2160 DATA 0.» MOON DRIVER. ZUTATEN MIT E 
IS MIXEN- IN SEKTSCHALE GEBEN- MIT SE 
KT AUFFUELLEN GARNIERUNG 1 MARASCHINO- 
KIRSCHE + 1 SCHEIBE ZITRONE, 3 CL . BIN. 

2 CL. PRINZEN KIRSCH. 1 CL , WERMUT. . SE 
KT ZUM AUFFUELLEN 

2170 DATA O,* BOLS FROST. IM TUMBLER EIS 
MIT ZUTATEN VORBEREITEN- MIT TONIC AUFF 
UELLEN GARNIERUNG SCHEIBE ZITRON 

E- ORANGE- KIRSCHE. 4 CL . GIN, 2 CL . CUR 
ACAO. 2 CL. ZITRONENSAFT. , TONIC WASSER 
ZUM AUFFUELLEN 

2180 DATA 0.» SILVER TOP. ZUTATEN IM MIX 
BECHER MIXEN- MIT SEKT IN SEKTSCHALE AUF 
FUELLEN GARNIERUNG SCHEIBE ORANGE 

- KIRSCHE. 1/3, CURACRO TRIPLE SEC. 1/3. 
GIN. 1/6. GRENADINE. 1/6. ORANGENSAFT. 

. SEKT ZUM AUFFUELLEN 

2190 DATA 0.« BOLS TOP SLING. ZUTATEN IN 
MIXBECHER - 2-3 STUECKE EIS IN TUMBLER 
i UMRUEHREN UNO MIT TONIC AUFFUELLEN 

, 4 CL. GIN, 1/2 CL, GRENADINE. 1/2 CL . 
CURACAO. A DASH, ANGOSTURA . 2. KIRSCHEN. 
1/2 SCHEIBE, ORANGE 

2200 DATA 1/2 SCHEIBE. ZITRONE. . TONIC 
WASSER 

2210 DATA 0.« HONOLULU COOLER. ZUTATEN M 
IXEN IN AUSGEHOEHLTER ANANAS SERVIEREN 
. 1/3, ANANASSAFT. 1/3. ROSES LIME DUICE 
. 1/3, SOUTHERN COMFORT 

2220 DATA 0 , * PINA COLADA. ZUTATEN MIXEN 

- VERSCHIEDENE RUMSORTEN -UND IN KOKOSN 

USS SERVIEREN. 1/4 L. ANANASSAFT. 
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2 EL, KOKOSNUSSCREME. 1 SCHUSS, COINTREA 
U. VIEL. RUM 

2230 DATA 0.» MAI -TAI. ZUTATEN KRAEFTIQ 
SCHUETTELN - GARNIERUNGZITRONENSCHEIBE + 
KIRSCHE. 1/2, ZITRONENSAFT, 1/2, RO 
SES LIME 3UICE , 1 SCHUSS. CURACAO HEISS, 
2 CL. RUM WEISS. 2 CL, RUM BRAUN 
2240 DATA 0.« PLANTER ' S PUNCH, ZUTATEN I 
N EINEM HOHEN GLAS MIXEN UND RVIEREN. 
1/3. ORANGENSAFT. 1/3, ZITRONENSAFT, 1/3 
. ANANASSAFT. 1 OASH , GRENADINE. 2 CL. R 
UM WEISS. 2 CL. RUM BRAUN 
2250 DATA 0,* MINT-FRAPPE. HOHES GLAS ZU 
R HAELFTE MIT GESTOSSENEM EIS FUELLEN - 
LIKOER OARUEBER LAUFEN LASSEN - MIT 

SODAWASSER AUFFUELLEN GARNIERUNG FR 

ISCHE MINZE. BELIEBIG, PFEFFERMINZLIKOER 
2260 DATA O.» PUSSV-FOOT. EIS + ZUTATEN 
MIXEN - MIT FRUECHTEN GARNIEREN. 1/3 
. ANANASSAFT. 1/3. ORANGENSAFT. 1/3. GRA 
PEFRUITSAFT 

2270 DATA O.» SUMMERWIND. ZUTATEN + 3 EI 
SWUERFEL MIXEN - MIT BITTER GRAPE FR 

UIT AUFFUELLLEN. 1 TL. ZITRONENSAFT. 2 G 
LAESER. WODKA. . BITTER GRAPEFRUIT 
2280 DATA O.« BANANA DAIQUIRI. IM ELEKTR 
ISCHEN MIXER EIS + EINE HALBE BANANE MI 
T ZUTATEN MIXEN - BIS EIS ZU SCHNEE W! 
RO - IM TUMBLER SERVIEREN. 2 CL . BANANEN 
LIKOER, 4 CL, RUM BRAUN. 1 DASH . ZITRON 
E 

2290 DATA 0.» CREOLE . IM SHAKER ZUTATEN 
+ EIS + TRINKSCHOKOLADE MI 

XEN MIT SCHOKOLADEN- STREUSEL SERVIEREN 
. 2 CL. CREME DE KAKAO. 4 CL . RUM BRAUN 
. BELIEBIG. TRINKSCHOKOLADE 
2300 DATA 0.4 BRASIL. ZUTATEN + EIS IN E 
ISBECHER GEBEN - UMRUEHREN - SERVIE 

REN. 8 CL, MOCCA STARK. 1 EL. ZUCKER 
BRAUN, 4 CL. RUM 

2310 DATA 0.« ZOMBIE. ZUTATEN IN LOGDRIN 
KGLAS GEBEN + FRUECHTE +EIS VOR 

SICHTIG UM- RUEHREN MIT ZIMTSTANGE SER 
VIEREN, 2 CL. KAFFEELIKOER. 4 CL . RUM B 
RAUN 

2320 DATA O.» PRAIRIE OYSTER. NACHEINANO 
ER IN EIN COCKTAILGLAS GEBEN. 1 TL. WORC 
ESTERSAUCE. 2 TL. KETCHUP. TROPFEN. OEL, 
TROPFEN, ESSIG. 1, EIGELB, . SRLZ. , PF 
EFFER, . CURRY, . TABASCO. . PAPRIKA. . 
MUSKATNUSS 

2330 DATA 0.» PORTWEIN COBBLER, HOHES GL 
AS ZU 2/3 MIT GESTOSSENEM EIS FUELLEN 
- ZUTATEN - MIT SOOAWASSER AUFFÜELLEN 
MIT FRUECHTEN GARNIEREN. 2 TEILE. PORT. 


TEIL. MARASCH] 


l TEIL. GRAND MARNIER. 1 
NO, 1 TL. ZUCKERSIRUP 
2340 DATA 0,« SHERRY-COBBLER, COBBLER GL 
AS ZU i/3 MIT FEINEM EIS FUELLEN - 

ZUTATEN - MIT SODfl-WASSER AUFFUELLEN - 
DURCHRUEHREN, 2/3, SHERRY FINO, 1/3, CO 
GNAC, 2 SCHUSS, PORT 

2350 DATA 0.« RUM CRUSTA . ZUTATEN + S ST 
UECKE EIS IN SHAKER - 1/2 MINUTE KRAEFTI 
G SCHUETTELN - IN GLAS MIT ZUCKE 

RKRUSTE SEIHEN, SAFT 1/2. ZITRONE. 2 EL. 
ZUCKERSIRUP, 2 OASH . ANGOSTURA, 3 DASH . 
MARASCHINO, 1 GLAS, RUM 
2360 DATA 0,* BRANDY COOLER. ZUTATEN + E 
IS IN SHAKER - MIXEN - ANSCHL IESSE 

NO IN WHISKY-BECHER SEIHEN UND MIT GIN 
GERALE AUFFUELLEN, 1 TL. 2UCKER, SAFT 1/ 
2. ZITRONE. 1/2 GLAS. BRANDY, . GINGER A 
LE 

2370 DATA 0.» GIN COOLER. WIE BRANDY COO 
LER - 3ED0CH GIN STATT BRANDY. , 

2380 DATA 0,9* EYEBRIGHT COOLER. GROSSER 
WHISKYBECHER - ZUTATEN + 3 STUECK 

E EIS - MIT GINGER ALE AUFFUELL 

EN - MIT KIRSCHEN UND ANANAS SERVIERE 
N. SAFT 1/2, ZITRONE. 1/2 GLAS. CALVADOS 
. 1/2 GLAS. CORDIAL MEDOC . . GINGER ALE 
2330 OATA 0.» CABLEGRAM COOLER. GROSSER 
WHISKYBECHER - ZUTATEN + 3 STUECK 

E EIS - MIT GINGER ALE AUFFUELL 

EN - UMRUEHREN - MIT ZWEI KIRSCHEN 

SERVIEREN. SAFT 1/2, ZITRONE. 1 EL. GRE 
NADINE. 1/2 GLAS. WHISKY. , GINGER ALE 
2400 DATA 0.» LOVER ’S DREAM, ZUTATEN IM 
MIXBECHER MIT GABEL DURCHSCHLAG 

EN - MIT GINGER ALE AUFFUELLEN 

- MIT KIRSCHE UND STROHHALM SERVIEREN. 
1. El. 1 EL. ZUCKER 

2410 DATA SAFT 1/2. ZITRONE. . GINGER AL 
E 

2420 DATA 0.« CHAMPAGNER DAISY. ZUTATEN I 
N ZU 1/3 MIT EIS GEFUELLTEN MIXBECHER GE 
BEN- 1/2 MINUTE LANG MIXEN - INSEKTSCHAL 
E MIT SEKT AUFFUELLEN - MIT 2 KIRSCHE 
N UNO 2 STUECKEN ANANAS SERVIEREN 

.SAFT 1/4.ZITR0NE.1 TL, GRENADINE 
2430 DATA 1/2 GL AS. BR ANDY. .SEKT 
2440 DATA 0.« BRANDY DAISY. WIE CHAMPAGN 
ER DAISY - JEOOCH MIT 1 STATT 1/2 GL 

AS BRANDY - MIT SODA AUFFUELLEN. 

2450 DATA 0.» GIN DAISY. WIE CHAMPAGNER 
DAISY - JEDOCH GIN STATT BRANDY. SAFT 1/ 
4. ZITRONE. 1 TL. GRENADINE. 1/2 GLAS. G 
IN 
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2460 DATA 0.» RUM DAISY, WIE CHAMPAGNER 
DAISY - JEDOCH RUM STATT BRANDY, SAFT 1/ 
4. ZITRONE . I TL, GRENADINE, 1/2 GLAS. R 
UM 

2470 DATA 0.« WHISKY DAISY, WIE CHAMPAGN 
ER DAISY - JEDOCH WHISKY STATT BRANDY 
, SAFT 1/4. ZITRONE, 1 TL, GRENADINE, 1/ 
2 GLAS. WHISKY 

2480 DATA 0,* ASCOT OAISY. MIXBECHER ZU 
1/3 MIT EIS FUELLEN - ZUTATEN - SCH 

UETTELN UND IN SEKTSCHALE GEBEN - MIT S 
KIRSCHEN GARNIEREN - SODAH INZUFUEGEN . 

2 TL, CHERRY BRANDY. SAFT 1/4, ZITRONE, 

2 TL. WHISKY, 2 EL, GIN 

2490 DATA 0,* MANHATTAN, MIXEN - MIT KIR 
SCHE GARNIEREN, 1 DASH, ANGOSTURA. 2/3. 
WHISKY. 1/3. WERMUT ROT 
2500 DATA O,* BRONX . MIXEN, 1/4, GIN, 1/ 
4. WERMUT ROT. 1/4. WERMUT WEISS, 1/4, 
ORANGENSAFT 

2510 DATA 0,* INOIA. MIXEN, 1 DASH. MARA 
SCHINO, 1/3. GRAPEFRUITSAFT. 2/3. GIN 
2620 DATA 0,* MADAME. MIXEN - MIT ZITRON 
ENSPIRALE UND KIRSCHE GARNIEREN, 1 DASH. 

ANGOSTURA, 2 SCHUSS. WERMUT. 4 CL. GIN 
2530 DATA 0.« MOONLIGHT. MIXEN, 1 DASH, 
ORANGENSAFT. 1 DASH, CURACAO, 1/3. WERMU 
T, 2/3, GIN 

2540 DATA 0,ä PARADIES, MIXEN, 1/3, GIN. 

1/3. APRICOT BRANDY. 1/3, ORANGENSAFT 
2550 DATA 0.» EXPRESS. MIXEN, 1/3, GIN, 
1/3, APRICOT BRANDY. 1/3, WERMUT 
2560 DATA 0.» BAMBOO. MIXEN - MIT 1 STUE 
CK ZITRONENSCHALE SERVIEREN , 2 DRSH . 

ANGOSTURA, 1/2, SHERRY. 1/2, WERMUT 
2570 DATR O.« KIR ROYAL . ZUCKER IN SEKTG 
LAS - ZUTATEN DER REIHE NACH BEIGEBEN , 

1 TL. ZUCKER, 1 DASH. ANGOSTURA, 2 CL . C 
OGNAC, , SEKT ZUM AUFFÜELLEN 

2580 DATA 0.* OHIO. MIT KALTEM SEKT AUFF 
UELLEN - KIRSCHE EINLEGEN, I OASH, RNGOS 
TURA. 1/3, WHISKY. 1/3. WERMUT ROT. 1/3 
, CURACAO 

2590 DATA 0.« TOM COLLI NS, 4 EISWUERFEL 
IN LONGDRINKGLAS - ZUTATEN - MIXEN - MIT 
SOOA RUFFUELLEN. SAFT 1. ZITRONE. 

2 TL. ZUCKER. 2 CL. GIN 

2600 DATA 0.» WHISKY FIX. GLAS ZU 1/3 MI 
T EIS FUELLEN - ZUTATEN - UMRUEHREN - ZI 
TRONEN- SCHEIBE UND STROHHALM BE IG 
EBEN. 2 EL. ZUCKERSIRUP. SAFT 1. ZITRONE 
. 1 CL. CURACAO ORANGE. 2 CL . WHISKY SC 
OTCH 

2610 DATA 0.* PRINCE OF WALES. HOHES GLA 
S - 4 EISWUERFEL - ZUTATEN - UMRUEHREN 
UND MIT SEKT RUFFUELLEN - GARNIERUN 
G 1 SCHEIBE ORANGE. 1/2 GLAS, CURACAO. 

2 DASH. ANGOSTURA 
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2620 DATA O.» SALTY OOG. GLRS ZUR HAELFT 
E MIT EIS FUELLEN - ZUTATEN + 1 PRI 

SE SALZ - UMRUEHREN -MIT STROHHALM S 

ERVIEREN, 2 CL , WODKA . 4 CL, GRAPEFRUITS 
AFT 

2630 DATA 0.« PINK CARTER PICK ME UP. SE 
KTSCHALE - 2 E ISWUERFEL + ZUTATEN - MIT 
ZITRONENSCHALE ABSPRITZEN. 3 DASH 

. ANGOSTURA. 1/4 GLAS. GRENADINE. 1/4 GL 
AS. ZITRONENSAFT. 1/2 GLAS. GIN, , SEKT 
ZUM AUFFUELLEN 

2640 DATA 0.« WODKA FIZZ. ZUTATEN MIT EI 
S GUT SCHUETTELN - IN GLASSEIHEN - MIT S 
ODA AUF- FUELLEN. 1/4. WODKA. 3/4. ANANA 
SSAFT 

2650 DATA 0.« BLOOOY MARY. ZUTATEN MIT E 
IS SCHUETTELN. . TOMATENSAFTGUT GEKUEHLT 
. 2 CL, WODKA. 1 DASH. WORCESTER-SAUCE . 

. PFEFFER, . SALZ, , PAPRIKA. 1 DASH. ZI 
TRONENSAFT 

2660 OATA 0,* SCREW DRIVER. WODKA IN EIN 
GLAS MIT EIS GEBEN - MIT SAFT AUFFUEL 
LEN - SCHUETTELN, 2 CL . WODKA, . 

ORANGENSAFT ZUM AUFFUELLEN 
2670 DATA 0.« MOSCOW MULE. ZUTATEN ♦ EIS 
INS GLAS - MIT GINGER AUF-FUELLEN. 4 CL 
. WODKA, . GINGER ALE ZUM AUFFUELLEN. 1. 
ZITRONENSCHEIBE 

2680 DATA 0.* GIMLET. ZUTATEN IM SHAKER 
MIT EIS SCHUETTELN. 1/3. ROSES LIME 3UIC 
E. 2/3. WODKA 

2690 DATA 0, »ANGOSTURA SCORPION. MIT EIS 
MIXEN. 2 EL. ZUCKERSIRUP, 2 EL, ROSES L 
IME 3UICE. 1 DASH. ANGOSTURA. 3 EL. RUM 
2700 DATA 0.» RUM PUNCH, ZUSAMMENGEBEN - 
BITTER & GINGER ALE ALS LETZTES. 1 TASS 
E. ZITRONENSAFT, 2 TASSEN. ERDBEERSIRUP, 
3 TASSEN, RUM WEISS C3AMAICA). 2 TASS 
EN. ANANASSAFT. 1 TASSE. GRAPEFRUITSAFT. 

1 TASSE. GINGER ALE. DASHES. ANGOSTURA 
2T10 DATA 0.» INC IDENT. SORBET + ZUTATEN 
IN SCHMALES GLAS GEBEN. I EL. ZITRONENS 
ORBET. 4 CL, RUM BRAUN EISKALT. 4 CL . 
ROTWEIN 

2720 DATA 0,* WHITE WITCH, ZUTATEN SCHAU 
MIG MIXEN, 1/4. KAKAO RUM LIKOER. 1/4, R 
UM. 1/2, VANILLE EIS 

2730 DATA 0.» MORGAN ’S REVENGE . MIT EIS 
MIXEN - MIT SODA AUFFUELLEN, 1/4, RUM. 1 
/2. ANANASSAFT, 1/4. ORANGENLIKOER BITT 
ER 

2740 DATA O.» PEACH'S SPECIAL. EIS + ZUT 
ATEN IM SHAKER MIXEN - MIT KIRSCHE S 

ERVIEREN, t DASH, ANGOSTURA, 1/3. CHERRY 



BRANDY. 1/3. WERMUT WEISS. 1/3. GIN 
2750 DATA 0.» ACAPULCO. 4 ZERKLEINERTE E 
ISWUERFEL IN GLAS - MIT SODA AUFFUELLEN. 

1 TL. ZUCKERSIRUP, 5 CL. TEQUILA, 2.5 C 
L. CASSIS. 1. ZITRONENSCHEIBE. . SODA ZU 
M AUFFUELLEN 

2760 DATA 0.» TEQUILA CALIENTE, ZUTATEN 
MIXEN k 3 E ISWUERFEL MIXEN - MITSODA AUF 
FUELLEN, 4 CL . TEQUILA, 1 CL . CASSIS. 1 
CL. ROSES LIME 3UICE. 2 OASHES. GRENADIN 
E. 5-10 CL. SODA 

2770 DATA 0.« THE BLACKEST RUSSIAN, ZUTA 
TEN IN GLAS GEBEN - VORSICHTIG 3 EISWUER 
FEL ZUGEBEN, 2.5 CL . KAFFEELIKOER. 7.5 C 
L. WODKA 

2780 DATA 0.» WERMUT CASSIS. ZUTATEN k 3 
E ISWUERFEL IN GLAS GEBEN - MIT SODA AU 
FFUELLEN , 8 CL, WERMUT TROCKEN. 3.5 CL , 
CASSIS 

2790 DATA 0.« WHISKY COCKTAIL. ZUTATEN k 
3 E ISWUERFEL IM SHAKER MIXEN, 5 CL , WHI 
SKY. 2 DASHES, ANGUSTURA. 1 TL. ZUCKERS I 
RUP, 1, KIRSCHE 

2800 DATA 0.» ZUBROWKAT INI . ZUTATEN l> 3 
E ISWUERFEL IM SHAKER MIXEN. 4 CL. WODKA, 
6 CL, PFEFFERMINZLIKOER WEISS. 4 CL . Z 
ITRONENSAFT, 1, KIRSCHE GRUEN 
2810 DATA 0.« ADONIS. ZUTATEN I. 3 EISWUE 
RFEL VERRUEHREN. 1.5 CL. WERMUT ROT, 3 
CL. SHERRY. 1 OASH . ANGOSTURA 
2820 DATA 0.» HONEYMOON. 3 E ISWUERFEL I. 
ZUTATEN IM SHAKER MIXEN. 3 DASHES. CURAC 
AO ORANGE, 1 CL, ORANGENSAFT. 1.5 CL . BE 
NEDICTINE . 2.5 CL , CALVADOS 
2830 DATA 0.» REO SHAOOW. 3 E ISWUERFEL t 
ZUTATEN IM SHAKER MIXEN. 3 OASHES. ANGO 
STURA. 1 CL. APRICOT BRANDY. 1 CL . CHERR 
Y BRANDY, 3 CL. WHISKY 

2840 OATA 0,* TAKE TWO. 3 E ISWUERFEL k Z 
UTATEN MIXEN. 2.5 CL . GIN. 1.5 CL . COINT 
REAU, 1 CL. CAMPARI 

2850 DATA 0.« ROLLS ROYCE. ZUTATEN IN GE 
GEBENER REIHENFOLGE IN EIN GLAS GEBEN - 
UMRUEHREN. 2-3. EISWUERFEL. 2.5 CL . GIN. 

l.S CL. WERMUT DRY. 1 CL , WERMUT WEIS 
S, 1-2 DRSHES. BENEDICTINE, 1. HIRSCHE 
2860 FOR I-I TO 300 
28T0 NEXT I 
2880 RESUME 200 


Ein Maschinensprache-Monitor ln BASIC 


Dieses Programm stammt aus dem 'Colour-Qenie-Buch 1'. Es wird 
in diesen Buch nochmals gellstet, da der Monitor um Routinen 
zun Dlsketten-Sektor lesen und schreiben erweitert wurde. Für 
genaue Erklärungen des Monitors schlagen Sie bitte ln ‘Colour- 
Genie-Buch 1' noch, die Erklärung der Olskettenrout inen rinden 
ein paar Selten weiter. 

Nun noch eine Erklärung der einzelnen Moni tor-Konnandos t 


1. Hex-Oump 
Eingabes Hadresse 

Ab der eingegebenen Adresse wird der Speicherlnhal t ln hexa- 
dezimal gelistet. Jeweils nach Ausgabe einer Zelle wird die 
Tastatur auf folgende Tasten abgefragt : 

<CLEAR> - List ing abbrechen. 

«Leertaste» - Llstlng anhalten. bis «RETURN» gedrückt wird. 
Oie einzelnen Zellen haben folgendes Format! 

Die ersten 4 Zeichen geben die Adresse an. ln der das erste 
der B Bytes, die ln dieser Zelle gelistet werden, steht. 

Oann folgen die 8 Bytes und zum Schluß, etwas abgesetzt, 
rolgt die sogenannte Checksum. Dieses Byte ist das nieder — 
wertige Byte der Summe aller 8 Bytes und dient als Prüfmög- 
lichkeit für die Richtigkeit einer Eingabe. Alle Maschinen- 
programme in diesem Buch werden als Hex-Dump mit Prüfsumme 
gelistet, so daß Sie eine einfache Möglichkeit haben, die 
Richtigkeit Ihrer Eingabe zu prüfen. 

2. ASCII -Dump 
Eingabe: Aadresse 

Ab der eingegebenen Adresse wird der Speicherlnhal t als 
ASCII-Zeichen gellstet. Jede Zeile beginnt mit der Adresse, 
ln der das erste der 24 folgenden Zeichen steht, dann folgen 
die ASCII-Zeichen. Jedes Byte unter 32 dez. wird als 
dargestetlt. um die Bildschirmausgabe nicht durch Codes wie 
'Backspace' etc. zu zerstören. Auch beim ASCII -Dump kann die 
Ausgabe durch «CLEAR» abgebrochen und durch «Leertaste» an- 
gehalten werden. 

3. Edlt hexadezimal 
Eingabe: Eadresse 

Ab der eingegebenen Adresse kann der Speicherinhalt verän- 
dert werden. Es wird Jeweils die Adresse und der bisherige 
Inhalt dieser Speicherstelle ausgegeban. Sie können dann ein 
neues Byte eingeben, das dann in die Speicherstelle abgelegt 
wird. Nenn Sie statt einer Eingabe nur «RETURN» drücken, 
wird der Edltmodus abgebrochen. 






Eingabe: Ustart ende einsprung 

Zusätzlich wird noch der Prograaanaae abgefragt. Dieser Naae 
darf aaxiaal 6 Zeichen lang sein und das erste Zeichen aup 
ein Buchstabe sein. Oann wird der Bereich von Start bis ende 
ia SVSTEM-Band-Foraat auf Kassette geschrieben. Ua dieses 
Band wieder einzulesen, benutzen Sie den SYSTEM-Befehl des 
Colour-Basic und geben Sie den von Ihnen gewählten Prograae- 

E Ingabe: Sl eufwerksnuaaer 

Das angegebene Laufwerk (0 <• Laufwerksnuaaer <• 4) wird 
angesprochen. Alle Dlsket t enzugr i f fe sind nun auf dieses 
Laufwerk gerichtet. 

9. Sektor lesen/schrelben 

Eingabe: Dadresse disk-rel at 1 ver-sektor flag 
riag-l: Der angegebene Sektor wird ab der angegebenen 
Adresse ln den Speicher gelesen. 
flag*2: Oie ab der angegebenen Adresse ia Speicher stehenden 


2S6 Bytes werden in den angegebenen Sektor 


geschrieben. 


54 





flag-3: Wie rieg-2, der beschriebene Sektor wird aber als 
Inhal tsverzeichnis-Sektor gekennzeichnet . 

Anmerkung: Wenn Sie einen Sektor des Inhaltsverzeichnisses 
einiesen, wird ‘Disk error No. 6’ ausgegeben. Dies ist kein CO 
Fehler, sondern Sie können so diese Sektoren erkennen. Wenn Sie 
einen solchen Sektor wieder aur die Diskette schreiben, müssen 
Sie flag»3 angeben, sonst ist das Inhal t Verzeichnis nicht «ehr 


Wenn Sie statt Hadresse bzw. Aadresse PHadresse bzw. PAadresse 
angeben, geht das Listing parallel auf den Drucker. 


Programm ist Ing: 

10 CLS:CLEAR1000 
20 PRINTTommand": : INPUTAS 
30 IFAS-""THEN20 
40 GOSUB670 

SO I FBS-“P"THENPR- l :GOSUB670ELSEPR-0 
60 CS-“HAETGRSDW” 

TO F0RA-1T0LENCCS) : I FBS OfllDSCCS.A.l) THENNEXTA : G0T020 
80 ONAG0T0 1 00 . 200 ,310. 360 . 430 .500.790.810. 940 
90 G0TO20 
100 G0SUS690 
110 X-2 

120 Z-X : G0SUB750 : PRINTZS : “ ” : : I FPR- 1THENLPRINTZS : " 

130 C-0:FORY-OT07:Z-PEEKCX+Y) :C-C+Z: G0SUB750 : PRINTRIGHT* t 2* . 2) ; " : 

PR-1THENLPRINTRIGHTSCZS.2) 

140 NEXTY:PRINT" “ : : 1 FPR- 1THENLPR INT” "s 

ISO Z»C :G0SUB750 : PRINTRIGHTSl ZS , 2 3 : 1 FPR« 1THENLPRI NTRIGHTSCZS , 2 ) 

160 X-X+8 

170 KB-PEEHCSHF840) : IFHB-2THEN20 
180 IFHB< > 128THEN120 

190 HB-PEEHCSHF840) : I FHB < > 1 THEN1 90ELSE I 20 
200 G0SUB690 
210 X-Z 

220 Z-X: G0SUB750: PRINTZS • “ “: I I FPR- 1THENLPRINTZS : " 

230 F0RV-OTO23:Z«PEEHCX+Y) 

240 1FZ<32THENZ-ASCC'\") 

250 PRINTCHRSCZ) : : IFPR- 1 THENLPR1NTCHR» t Z ) t 
260 NEXTY : PRINT : E FPR* 1THENLPR INT 
270 X-X+24 

280 KB-PEEHC1HF840) s IFKB-2THEN20 
290 I FKB < > 128THEN220 

300 KB-PEEHCIHF840) : I FKB< > 1THEN300ELSE220 
310 G0SUB690 
320 X>Z 

330 Z«X:G0SUB7S0:PRINTZS:” - ” : : Z- PEEKC X) : G0SUB7S0 : PR INTRI GHTS C ZS ,2) 

340 AS-““: INPUTAS: IFAS-"“THEN20 
350 G0SUB690 : POKEX . ZAN0255 : X-X+ 1 : GOT0330 
360 G0SUB69O 
370 X-Z 

380 Z-X :GOSUB750:PRINTZS : " - “ : : Z- PEEKt X) : GOSUB750 : PRINTRIGHTS CZS .2) 

390 IFZ<32THENZ-ASC( 

400 PRINTCHRSCZ):“) - 





410 A*."": INPUTA*; IFA*-""THEN20 
420 POHEX. ASCCA*) ;X-X+1 :G0T0380 
430 60SUB690 

440 ZI- INT t 2/256) AN025StZ2-ZAND255 

450 POHE 1 6526. Z2 ! POHE 16527. ZI 

460 G0SUB670: IFB**" "THEN460ELSE A* -B*+A* 

470 G0SUB690 : Z-ZAN0255 
480 Z-USRCZ) 

490 G05UB750 : PRINTRIGHT»! Z* . 2) : G0T020 
500 G0SUB690 1 I FZ> -0THENX1 »ZELSEX1 -Z+65536 
510 G0SUB670: IFB*-" "THEN510ELSEA*-B*+A* 

520 GOSUB690iIFZ>-OTMENX2-ZELSEX2-Z+6S536 
530 PRINT" ft B A+B A-B" 

540 PRINT“ "s iZ-Xl ! G0SUB75O : PRINTZ* i " "s ! Z-X2 : GOSUB7SO : PRINTZ* s " "! 

550 Z-X1+X2; IFZ>6SS35THENZ-Z-6SS36 
560 G0SUB750: PRINTZ*;" 

570 Z-Xl -X2 : IFZC0THENZ-2+65536 
580 G0SUB7S0! PRINTZ* 

590 Z-Xl ; G0SUB640 ; PRINTZ* : " "; : Z-X2 ; G0SUB640; PRI NTZ* : ~ 

600 Z-X1+X2: IFZ>6553STHENZ-Z-65536 
610 G05UB640: PRINTZ* : " 

620 Z-Xl -X2 : I FZ <OTHENZ- Z+65536 

630 G0SUB6 40 ; PR I NTZ * •■ G0T02O 

640 Z*-STR*(Z) :Z*-R[GHT*CZ*.L£N(Z*)-1) 

650 IFLENCZ*) <5THENZ*-STRING* C5-LENC Z*) . 32) +2* 

660 RETURN 

670 B» : I FLEN( ft» ] -OTHENRETURN 

680 B*-LEFT*Cft* ,1) l ft*-RI GHT* C fl* , LENC ft* )- 1) ; RETURN 
690 Z-0 

700 G0SUB670 ! I FB* < "0"ORB* > "F"THEN740 
710 I FB* > "9”AN0B* < "fl"THEN740 

720 I FB*< -"9"THENZ 1 -RSC C B* ) -46ELSEZ1 -flSCCB* 1 -55 

730 Z-Z»16+Zl;30T0700 

740 I FZ> 32767THENZ-Z-65536 

750 Z 1 - I NTC Z/ZS6 ) AN0255 : Z2-ZAND255 ; Z* • 

760 Z3-INTCZ1/16) tG0SUB770 iZ3«ZlAND15:G0SUB770.-Z3-INTCZ2/16) ; G0SUB770 ! 
Z3-Z2AN015 

770 I F23 < 1 OTHENZ* -ZJ+CHR* ( Z3+481 EL5EZ* -Z*+CHR* t Z3+S5 ) 

780 RETURN 

790 G0SUB670 : 1 FflSC CB* 1 <480RASC( B* 1 > 51THEN20 
800 POKEIH 5R09 . RSC ( B* 3 -48 : CflLLOOC 7 : G0T020 
810 G0SUB690 ; RO-Z : G0SUB690 J SN-Z : G0SUB690 : FL-Z 
820 RESTORE 

830 REROft* ! I Ffl» < > "SEC I0"THEN830 

840 A* • : FORX - 1 TOI 5 : RE ADA : ft* • AS+CHR* C fl > ; NEXTX : FORX- 1 TOFL : RE ADDR : NEXTX 
850 X-VflRPTRC R* ) : X«PEEK( X+l 1+256* PEEKC X+2 ) ! 1 FX>32767THENX»X-65S36 
860 POHE X+l.CAD AND 255);P0KE X+2. ( INT< AD/256 )AND255) 

8T0 POHE X+4.CSN ANO 255) : POHE X+5 . C INTC SN/2S6) AND255) 

880 POHE X+7 , C DR ANO 255) I POHE X+8. ( INTtDR/256) AND2SS) 

890 0EFUSR1 «X ; X-USR1 ( 0) : I FX-0THEN20 
900 PR INT"D isH Error No. "sX :G0T020 
910 DRTft SEC 10 

920 DATA 33,0,0,17.0,0.205.0,0.111.38.0.195.154.10 
930 DATA-12433. -12417, -12421 
340 RESTORE 
950 WR*»”" 

960 READXX» : I F XX* <> "SYSTEM" THEN 360 

970 FORX- IT0127 

980 RE ADA t WR»-WR*+CMR»(fl) 

990 NEXTX : X- VARPTRC WR* ) ; X-PEEHI X+ 1 ) +256*PEEKC X+2 ) : I FX> 32767THENX-X-655 
36 

1000 R-X+3S ; R 1 - INTC R/256 ) AN02S5 : R2-RANG255 
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1010 POKEX+66 . R2 i POKEX+67 . R 1 : POKEX+75 , R2 i POKEX+76 , R 1 
1020 GOSUB 1 220 1 GOSUB 1 260 j GOSÜB 1 220 : GOSUB 1 260 : GOSUB 1 220 
1030 PRINT~Filena*e: "i j INPUTPN* 

1040 F0RX1 »XTOX+5 : P0KEX1 .32JNEXTX1 

1050 FORXl«lTOLENtPN») j POKEX- 1+X1 ,RSC( MID* C PNI . X 1 . 1) ) i NEXTX1 

1060 X-X+6sXl-INTCX/256)AN0255:X2»XAND2S5 

1070 POHE16526.X2jPOKE16527.X1 

1080 ONERRORGOTO 1100 

1090 OEFUSRO-X 

1100 ONERRORGOTOO 

1110 ONERRORGOTO 1130 

1120 CMO’’T 

1130 ONERRORGOTOO 

1140 Xl-USRCO) 

1150 GOT 020 
1160 OATft SYSTEM 

1170 OATRO. 0.0. 0,0, 0.32. 32. 32. 32. 32. 32 

1180 0RTA42. 142,64, 17.250.255.25.205.63,2.62.85.205,31 .2,6.6, 126,35.20 

5.31.2.16.249.17.244.255.25.229.221.225.221.94.0. 221 .86.1.221.110.2.22 
1.102,3 

1190 DATR175. 237 , 82 , 35, 124 . 183 , 40 . 8 . 6 . 0. 205 ,0,0 . 37 . 24 , 244 . 125 . 69. 183.1 

96.0. 0.62.120.205.31 .2 

1200 0ATA221 . 126.4.205.31.2.221.126,5.205.31.2.201 

1210 0ATA62.60.205 .31.2. 120,205.31,2,123,205.31.2.79.122.205,31.2.129. 

79.26.19.205.31.2, 129.79. 16.247,195.31,2 

1220 G0SUB690 

1230 Z1*INTIZ/256)AND255 

1240 Z2*ZAND255 

1250 POKE X . Z2 ! POHEX+ 1 . Z 1 ! X-X+2 i RETURN 

1260 G0SUB670 

1270 IFB$." "TKEN1260 

1280 fi*-B*+A*:RETURN v 
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tingegeben haben, 
tsette oder Diskette abspeichern, 
tse Ist IH7000. Endadresse kH7437 und 
: IH70S0. 

Monitor alt Disasseabter zur Verfügung haben. 




7000 ES DS 21 00 72 5F IS 00 C2 
7008 19 7E Ü1 El C3 00 00 00 12 
7010 4F 3 fl FF 7F 81 E6 7F C3 BO 
7018 00 70 00 00 00 00 00 00 70 
7020 06 7F C5 78 CD 00 70 C6 C5 
7028 20 67 38 FE 7F 4F 38 FD C4 
7030 7F 81 32 FE 7F CD 10 70 FC 
7038 6F CD C6 3C CI OS C2 22 E8 
7040 70 C9 00 00 00 00 00 00 39 
7048 00 00 00 00 00 00 00 00 00 
7050 38 FF 7F 4F 38 FC 7F 81 30 
7058 32 FF 7F CD 20 70 21 FD 28 
7060 7F 38 40 F8 FE 08 20 01 18 
7068 34 FE 10 20 01 35 2B FE CI 
7070 40 20 01 34 FE 20 20 01 D4 
7078 35 CD 40 71 C3 DO 70 00 B6 
7080 00 00 00 00 00 00 00 00 00 
7088 00 00 00 00 00 00 00 00 00 
7090 3E 03 32 13 43 3E 02 32 3B 
7098 FC 7F 32 FD 7F 21 00 48 92 
7080 11 01 48 01 FF OF 36 00 9F 
7088 ED BO C3 EB 70 00 00 00 8B 
7080 E5 D5 06 05 7E 12 23 C5 30 
70B8 01 28 00 EB 09 EB CI 10 D9 
70C0 F3 Dl El C9 00 00 00 00 6E 
70C8 00 00 00 00 00 00 00 00 00 
7000 21 00 48 11 00 58 01 48 1B 
7008 00 ED BO 21 00 48 11 01 25 
70E0 48 01 48 00 36 00 ED BO 71 
70E8 C3 50 70 3E 18 32 03 43 51 
70F0 3E 60 32 09 43 CD 99 38 C9 
70F8 C3 68 71 00 00 00 00 00 9F 
7100 00 98 88 88 88 99 20 20 28 
7108 20 20 20 98 08 88 80 88 EO 
7110 88 08 28 08 88 88 88 88 40 
7118 08 08 88 80 98 08 88 88 38 
7120 90 88 88 88 88 08 OB 08 18 
7128 08 88 88 88 88 88 88 88 40 
7130 88 08 88 00 00 00 00 00 58 
7138 00 00 00 00 00 00 00 00 00 
7140 38 FC 7F 11 28 48 OE 64 88 
7148 CO 80 71 OE 08 CD 80 71 94 
7150 OE 01 CD 80 71 38 FD 7F 83 
7158 11 40 49 OE 64 CD 80 71 C9 
7160 OE 08 CO 80 71 OE 01 CO B2 
7168 80 71 C9 21 80 72 1 1 48 26 
7170 65 01 FF 01 ED BO C3 50 16 
7178 70 00 00 00 00 00 00 00 70 
7180 D5 21 01 71 11 05 00 19 97 
7188 91 30 FC 81 B7 ED 52 Dl 05 
7190 13 F5 CD 60 70 Fl C9 00 8F 
7198 00 00 00 00 00 00 00 00 00 
7180 00 00 00 00 00 00 00 00 00 
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7348 04 04 00 40 40 14 00 00 9C 
7350 14 00 05 55 40 05 55 40 48 
7358 15 55 50 00 00 SO 14 01 1F 
7360 40 50 05 00 04 01 01 40 OB 
7368 51 40 51 40 51 40 00 00 B3 
7370 01 Ol 01 01 00 14 00 00 18 
7378 14 00 00 05 50 00 01 50 B8 
7380 14 00 50 00 00 50 14 01 C9 
7388 40 50 05 00 01 54 05 SO 3F 
7390 15 00 15 00 15 00 00 00 3F 
7398 01 00 44 01 00 14 00 00 5« 
7380 14 00 00 01 50 00 00 50 B5 
7388 14 00 50 00 00 50 14 01 C9 
73B0 40 50 05 00 04 00 00 00 99 
73B8 00 00 00 00 00 00 00 00 00 
73C0 00 40 10 04 00 14 00 00 68 
73C8 14 00 14 05 50 14 01 50 E2 
7300 14 00 SO 14 01 50 15 05 E3 
7308 40 54 15 00 05 55 55 55 80 
73E0 55 55 55 55 55 40 00 00 E9 
73E8 00 40 44 04 00 15 55 41 33 
73F0 55 40 15 55 40 15 55 40 E9 
73F9 14 00 SO 15 55 50 15 55 88 
7400 40 55 55 00 00 00 00 00 E8 
7408 00 00 00 OO 00 00 00 00 OO 
7410 00 15 01 50 00 15 55 41 11 
7418 55 40 05 55 00 05 55 00 49 
7420 14 00 50 05 55 40 05 55 58 
7428 00 15 54 00 05 55 55 55 60 
7430 55 55 55 55 55 40 00 00 E9 
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"ZALAGA" ©in Spielprogramm in Maschinensprache 
fuer das Colour-Genie eit 16HByte RAM. 


ZALAGA ist ein Action-Spiel in Maschinensprache, das 
auf Geschwindigkeit ausgelegt ist. 

Es soll einmal deeonstrieren. wo die wahren Vorteile 
der Maschlnenprograaaierung liegen. 

Sie geben das Programm am guenstlgsten eit dem weiter 
vorne gelisteten Basic-Monttor ein oder mit einem 
anderen Maschinensprachemonitor . Wenn Ihr Geraet nur 
mit 16MByte RAM ausgeruestet ist. so geben Sie vorher 
bet MEM SIZE' ? 2967Z ein und laden dann den Monitor. 

Das Programm besteht aus zwei grossen BLoecken: 

Das eigentlicAe Programm belegt den Speicher von 
7000H bis 75FFH . Es ist wiederum in kleinere 
Unterprogramme eingeteilt, wie aus der Dokumentation 
hervorgeht . 

Oer zweite Teil sind Tabellen. Anfangsgrafik und die 
Werte fuer die definierbaren Zeichen. 

Dieser Block beginnt bei T800H . Sie haben also noch 
genuegend freien Speicher um das Programm um- oder 
auszubauen. 

Die Luecken zwischen den einzelnen Unterprogrammen 
erlauben kleine Aenderungen auch innerhalb des ersten 
Programmteils. Auf jedenfall sollten Sie zuerst eine 
Original-Version auf kassette oder Diskette sichern. 

Also speichern Sie von 7000H bis 7FFFH mit der Start - 
adresse 75B0H . 

Noch einige Anmerkungen ueber den Aurbau der Tabellen. 

Die Tabelle der Positionen der Feinde besteht aus 12B 
Bytes. Fuer Jedes der 32 Objekte stehen 4 Bytes zur 
Verfuegung. Die ersten beiden Bytes entsprechen der 
Position des Feindes im Bi l dschi rmspeicher C 4400H-47E7H ) . 

Ist diese Position gleich 0. so bedeutet dies, dass der 
jeweilige Feind schon abgeschossen wurde. 

Das 3. Byte beinhaltet das LSB der V-Richtung des Feindes. 

Es kann die Werte 00H.28H oder DBH annehmen. 00H heisst 
keine Y-Rlchtung Z8H entspricht 40D also 40 Zeichen pro 
Bewegung mehr (eine Bildschirmzeile) und D8H entspricht 
-40D also eine Zeile nach oben. 

Das dritte Byte dient als Zaehler fuer die Bewegungen eines 
Feindes nach unten. Nach 24 Bewegungen (da die erste Zeile 
nicht benutzt wird) ist ein Feind wieder ln seiner Ausgangs- 
zeile. 

Die X-Richtung ist fuer alle Feinde Immer gleich. 

Sobald ein Feind am linken oder rechten Bildschirmrand 
ist. wird die X-Richtung fuer alle umgekehrt. 

Die Tabelle wird, da sie veraendert werden muss, zu Beginn 
jeder Runde von 7900H nach 7880H kopiert. 

Zwei weitere Tabellen sind nach den gleichen Prinzip eurgebaut. 
Die Tabellen der Schuesse und die der Explosionen. 

Die Schusstabel le besteht aus 16 Bytes, jeweils LSB und MSB 
der Schussposition im Bildschirmspeicher. Sie wird ab 7870H 
angelegt. Die Explosionstabelle besteht aus 24 Bytes ab 
7850H. Sie hat zusaetzlleh zu der Position der Explosion noch 
ein Byte als Zaehler fuer dte drei Phasen der Explosion. 

Die Anfangsgraf ik beginnt bei 7A00H und belegt 1024 Byte. 

Die definierbaren Zeichen beginnen bei 7E00 und belegen 
512 Bytes. Sie sind zusaetzlich noch einmal vergroessert im 
Anschluss an das Llsting ausgedruckt. 

Die ersten 32 Zeichen von 128 bis 153 sind fuer 8 Feindtypen 



ln je zwei Bewegungszustaenden definiert. 

Danach folgen die Zeichen fuer Schif f .Schuesae, Explosionen usw. 
Doch nun wollen wir Sie nicht weiter vom tippen abhalten. 

Mir wuenschen Ihnen viel Glueck bei* Kampf gegen die Zalonen. 

Das Programml ist ing : 

7000 21 00 TE 11 00 F4 01 00 «5 

7008 02 ED BO 3E 01 CD BO 3F 9A 

7010 CD FO 70 21 00 7A 11 00 03 

7018 44 01 00 04 EO BO 21 00 07 

7020 FO il 01 FO 01 FF 03 36 2B 

7028 06 ED BO CD FO 14 2A AA 48 

7030 40 7C E6 01 C6 44 67 FE 12 

7038 44 28 05 70 FE 18 30 EB 1F 

7040 7E FE 7F 28 Oft 36 7F 11 F3 

7048 00 AC 19 36 02 18 10 ES OB 

7050 Dl EB 01 00 36 09 7E 12 8C 

7058 EB 11 00 AC 19 36 05 CD C9 

7060 2B 00 FE 30 DB 2B 70 FE CC 

7068 3A 38 08 FE S3 C2 2B 70 28 

7070 C3 80 70 32 3C 47 D6 30 6E 

7078 32 00 42 C3 2B 70 00 00 D2 

7080 21 00 00 22 02 42 3E 07 CC 

7088 32 01 42 3A 3C 47 D6 30 38 

7090 32 00 42 3E 07 D3 F8 3E C2 

7098 F7 D3 F9 21 E4 79 06 05 4C 

7080 36 BO 23 10 FB 3E 05 03 28 

7088 F8 3E 03 D3 F9 21 DO 07 FD 

70B0 22 OC 42 C3 80 74 00 00 27 

70B8 00 00 00 00 00 00 00 00 00 

70CO 00 00 00 00 00 00 00 00 00 

70C8 00 00 00 00 00 00 00 00 00 

7000 00 00 00 00 00 00 00 00 00 

7008 00 00 00 00 00 00 00 00 00 

70EO 00 00 00 00 00 00 00 00 00 

70E8 00 00 00 00 00 00 00 00 00 

70F0 3E 07 03 F8 3E FF 03 F9 19 

70F8 CO BO 38 C9 00 00 00 00 7E 

7100 DD 21 80 78 ED 4B 08 42 78 

7108 DO 6E 00 DO 66 01 7C B5 CO 

7110 Cft B3 71 36 20 23 36 20 BO 

7118 2B 09 DO 5E 02 16 00 7B 02 

7120 FE 06 20 02 16 FF 19 B7 DD 

7128 28 OC FE 28 28 05 DD 35 99 

7130 03 18 03 00 34 03 DO 7E 80 

7138 03 B7 20 04 DD 36 02 00 F3 

7140 FE 18 20 08 DD 36 02 00 53 

7148 DO 36 03 00 11 E8 47 DF 35 

7150 38 04 11 40 FC 19 1 1 28 08 

7158 44 DF 30 04 11 CO 03 19 44 

7160 DD 75 00 DO 74 01 3A 01 DF 

7168 42 E6 07 07 07 C6 80 5F E2 

7170 3A Oft 42 E6 02 83 77 23 SB 

7178 3C 77 11 FF fiß 19 3ft 01 C2 ’ 

7180 42 3C 77 23 77 DO 7E 03 ED 

7188 07 20 13 CD FO 14 3ft 00 FS 

7190 42 SF 3A ftfl 40 88 30 04 84 

7198 DO 36 02 28 18 15 00 7E C5 

7 IAO 02 FE 28 20 OE CD FO 14 27 

71 A8 3A ftfl 40 FE 01 30 04 DO 34 

71B0 36 02 08 11 04 00 DO 19 1B 

71B8 00 7D B7 C2 04 71 C9 00 11 
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7598 42 C3 80 74 00 
75A0 21 FA 79 11 60 
75A8 00 ED 80 C3 00 
75B0 21 00 00 22 04 
75B8 60 C3 00 70 00 
75C0 00 00 00 00 00 
75C8 00 00 00 00 00 
75D0 00 00 00 00 00 
75Q8 00 00 00 00 00 
75E0 00 00 00 00 00 
75E8 00 00 00 00 00 
75F0 00 00 00 00 00 
75F8 00 00 00 00 00 
7600 00 00 00 00 00 
7608 00 00 00 00 00 
7610 00 00 00 00 00 
7618 00 00 00 00 00 


Nun folgen die Tobel 

7800 02 02 02 02 02 
7808 03 03 03 06 06 
7810 06 06 06 06 06 
7818 02 02 02 02 02 
7820 02 03 03 03 03 
7828 2A 2A 20 47 45 
7830 45 41 44 59 20 
7838 00 00 00 00 00 
7840 00 00 00 00 00 
7848 00 00 00 00 00 
7850 00 00 00 00 00 
7858 00 00 00 00 00 
7860 00 00 00 00 00 
7868 00 00 00 00 00 
7870 00 00 00 00 00 
7878 00 00 00 00 00 
7880 00 00 00 00 00 
7888 00 00 00 00 00 
7890 00 00 OO 00 00 
7898 00 00 00 00 00 
78AO 00 00 00 00 00 
78A8 00 00 00 00 00 
78B0 00 00 00 00 00 
7888 00 OO 00 00 00 
78C0 00 00 00 00 00 
78C8 00 00 00 00 00 
7800 00 00 00 00 00 
78D8 00 00 00 00 00 
78EO 00 00 00 00 00 
78E8 00 00 00 00 00 
78F0 00 00 00 00 00 
78F8 00 00 00 00 00 
7900 50 44 00 00 54 
7908 58 44 00 00 SC 
7910 60 44 00 00 64 
7918 68 44 00 00 6C 
7920 A2 44 00 00 A6 
7928 AA 44 00 00 AE 
7930 82 44 00 00 86 
7938 BA 44 00 00 F4 
7940 F8 44 00 00 FC 


00 00 00 F9 
7D 01 06 89 
70 00 00 DO 
42 J1 00 AA 
00 00 00 93 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 


.len und AnTongsgr 

03 03 03 13 
06 06 06 27 
06 06 02 2C 
02 02 02 10 
03 03 03 17 
54 20 52 C6 
2A 2A 20 87 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 OO 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
44 00 00 2C 
44 00 00 3C 
44 00 00 4C 
44 00 00 SC 
44 00 00 DO 
44 00 00 EO 
44 00 00 FO 
44 00 00 36 
44 00 00 7C 




7B30 20 20 20 20 20 20 20 20 00 
7B38 20 20 20 20 20 20 20 20 00 
7B40 20 20 44 69 65 20 S« 6t 2D 
7B4B 6C 6F 6E 65 6E 20 61 75 12 
7B50 73 20 64 65 72 20 47 61 96 
7B58 6C 61 78 63 65 20 4E 47 C8 
7B60 43 2D 35 34 37 20 20 20 70 
7668 20 20 67 72 65 69 66 65 B2 
7B70 6E 20 64 69 65 20 45 72 97 
7B78 64 65 20 60 69 74 20 69 BC 
7B80 68 72 65 72 20 67 65 73 10 
7B88 61 60 74 65 6E 20 20 20 75 
7B90 20 20 46 6C 6F 74 74 65 fiE 
7B98 20 61 6E 2E 20 53 69 65 5E 
7BftO 20 73 69 6E 64 20 6D 69 C4 
7Bft8 74 20 64 65 60 20 6C 65 SB 


7BB8 20 20 46 6C 61 67 67 73 94 
7BC0 63 69 69 66 66 20 64 65 E9 
7BC8 72 20 52 61 75 60 2D 42 96 
7BD0 61 73 69 73 20 48 61 6E E7 
7BD8 67 65 6C 61 72 20 20 20 6B 
7 BEO 20 20 67 65 66 6C 6F 66 65 
7BE8 65 6E 20 75 6E 64 20 6D C7 
7BF0 75 65 73 73 65 6E 20 73 26 
7BF8 69 63 68 20 64 75 72 63 02 
7C00 68 20 64 69 65 20 20 20 18 
7C08 20 20 20 20 20 66 65 69 D4 
7C10 6E 64 6C 69 63 68 65 6E 45 
7C18 20 52 65 69 68 65 6E 20 9B 
7C20 6B 61 65 6D 70 66 65 6E 47 
7C28 2E 20 20 20 20 20 20 20 OE 
7C30 20 20 20 20 20 20 20 20 00 
7C38 20 20 20 20 20 20 20 20 00 
7C40 20 20 20 20 20 20 20 20 00 
7C48 20 20 20 20 20 20 20 20 00 
7C50 20 20 20 20 20 20 20 20 00 
7C58 20 20 44 69 65 20 53 74 39 
7C60 65 75 65 72 75 6E 67 20 1B 
7C68 64 65 73 20 53 63 68 69 E3 
7C70 66 66 73 20 67 65 73 63 01 
7C78 68 69 65 68 74 20 20 20 72 
7C80 20 20 60 69 74 20 64 65 73 
7C88 6E 20 50 66 65 69 6C 74 F2 
7C90 61 73 74 65 6E 2E 20 49 B2 
7C98 68 72 20 4C 61 73 65 72 Fl 
7CftO 20 77 69 72 64 20 20 20 36 
7Cft8 20 20 20 20 20 60 69 74 Eft 
7CB0 20 64 65 72 20 4C 65 65 91 
7CB8 72 74 61 73 74 65 20 61 14 
7CC0 75 73 67 65 6C 6F 65 73 67 
7CC8 74 2E 20 20 20 20 20 20 62 
7C00 20 20 20 20 20 20 20 20 00 
7CD8 20 20 20 20 20 20 20 20 00 
7CE0 20 20 20 20 20 20 20 20 00 
7CE8 20 20 20 20 20 20 20 20 00 
7CF0 20 20 20 20 20 20 20 20 00 
7CF8 20 20 OF 03 03 03 03 03 3E 
7000 03 03 03 D3 03 D3 03 03 98 
7D08 03 03 03 D3 D3 03 D3 03 98 
7010 03 D3 03 03 03 03 03 03 98 
7018 03 03 D3 D3 E3 20 20 20 8F 




70 



7F08 18 18 3C DB 
7F10 00 20 70 08 
7F18 00 04 OE 15 
7F20 18 18 3C E7 
7F28 00 20 70 88 
7F30 10 08 10 08 
7F38 00 00 00 08 
7F40 18 18 18 18 
7F48 00 00 00 00 
7F50 11 OC 03 02 
7F58 08 BO 40 FC 
7F60 01 14 01 55 
7F68 10 80 24 40 
7F70 00 00 04 00 
7F78 00 SO 00 40 
7F80 10 10 06 FE 
7F88 04 04 4C 54 
7FS0 08 10 30 10 
7F98 18 20 40 48 
7F80 04 04 4C 54 
7F88 00 00 00 08 
7FB0 18 20 40 58 
7FB8 18 20 40 40 
7FC0 18 24 44 44 
7 FC 8 18 24 44 48 
7FD0 OC 10 20 28 
7FD8 FF 00 E3 14 
7FE0 C7 08 93 24 
7FEB F3 04 E4 02 
7FF0 FC 00 F8 40 
7FF8 00 00 00 00 


99 7E 7E 24 
□8 70 20 00 
15 OE 04 00 
C3 7E 7E 24 
88 70 20 00 
10 00 00 00 
10 08 10 08 
00 00 00 00 
18 18 18 18 
OF 10 01 06 
B2 EO 18 04 
02 24 01 08 
88 80 28 80 
12 00 04 00 

00 08 40 00 
D6 10 00 00 
84 44 40 40 
10 18 10 20 
SB 48 50 20 
84 44 40 40 
10 20 00 00 
34 04 08 30 
40 44 48 30 
44 44 48 30 
50 68 44 40 
30 24 28 30 
14 14 14 14 
48 4F 40 3F 

01 BF 00 BF 
20 80 20 CO 
00 00 00 00 


00 

DO 

4E 

36 

70 

40 

38 

60 

60 

48 

82 

98 

C6 

18 

18 

08 

DO 

BO 

□0 

00 

38 

40 

B4 

C4 

04 

10 

46 

9C 

5C 

04 

00 
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7029 E0B0 
7026 CDF014 
702E 2*««40 

7031 7C 

7032 E601 

7034 C644 

7036 67 


7052 010036 

7055 09 

7056 76 

7057 12 

7058 EB 

7059 HOOftC 


7073 323C47 

7076 0630 

7078 320042 

707B C32B70 
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N 7192 399940 

7195 BB 

7196 3004 

7198 DD360228 

719C 1915 

719E D07E02 

7191 FE 28 
7193 200E 

7195 CDF014 
7198 399940 

719B FE01 
7190 3004 

719F 00360208 

7183 110400 

71B6 0019 

71B8 00 

7 1B9 70 

71B9 87 

7 IBS C 20471 



LD 9 , C 408BH 1 

CP E 

DR NC.S+06H 

LO ( 1X+02H ) , 28H 

DR S+17H 

LO 9.CIX+02H) 

CP 28H 

3R NZ.S+10H 

C9LL 14F0H 

LD 9 . ( 4099H ) 

CP 0 1H 

3R NC.S+06H 

LD ( IX+02H) .0D8H 

LD DE.0004H 

9DD IX. OE 

DEFB ODO kt 

LD 9.L 

09 9 

3P NZ.7104H 

RET 


laickaa 

• I daaa aack TISCH 
Y-RJcbtuu* abapaickara 


■ UHTERPROGRAHM ZUR AEHDER UHG DER X-RtCHTUHG «•» 


r 


71C0 

71C2 

71C4 

71C6 

71C7 

71C9 

71C9 

71CC 

71CF 

7102 

7104 


7107 
71D9 
7109 
7 IOC 
71 OE 
71E1 
71E4 
71E7 
71E9 
71E9 
7 1EC 
71EE 
71EF 
71F1 
7 1 F2 
71F5 
71F8 


3E08 

D3F8 

DBF9 

B7 

2801 

30 

03 F9 
212844 
112800 

7E 

FE20 

2005 

19 

10F8 

1806 

210100 

220842 

214F44 

0616 

7E 

FE20 

2004 

19 

10F8 

C9 

21FFFF 

220842 

C9 


LD 8.08H 

OUT C0F8HS.9 

IN 9,(0F9H) 

09 9 

DR Z.S+03H 

DEC 9 

OUT (0F9HJ.9 

LO HL.4428H 

LD OE , 0028H 

LO B.16H 

LD 9, (HL) 

CP 2 OH 

DR NZ.B+07H 

9 DO HL. DE 

03NZ »-06H 

DR S+08H 

LO HL , 000 IH 

LO (4208H3.HL 

LD HL . 444 FH 

LO B . 1 6H 

LO 9. (HL) 

CP 2 OH 

DR NZ.B+06H 

9DD HL . DE 

03NZ S-06H 

RET 

LO HL.OFFFFH 

LD ( 4208H ) .HL 

RET 


, auf fort ran 

Earl ESH ia daa Akku Uautulaarka 1) 


1 Hl aut 1. Bj»a, 2. Hlldtckiraiaila 
; DE - 2SH (• *400) 

i B * 16H {* 20D) ala Zaahlar Har Zailaa 
! Zaickaa aaa daa Bildackira ia Akku 
; « 20H (SPACE) T 
; aaaa aiebl, daaa auch 7I0EK 
i aonat Kl • Hl * 400 (aaackata Zaila) 

; Zaahlar -I aicb* 0 T daaa auch 7ID4H 
; aoaat aack TLE4H 
; *1 <> aack rachta) 


; Hl aur 30. Bjta ia 2. Bild. chlrai.il. 
iB-200 

i Zaichaa in Akku 
; * 20H (SPACE) T 
; wann aicht, daaa aack 7IP2H 
; Hl • Hl ♦ 400 
; aaack.taa Zaickaa laalaa 
; uad turuack 

i in Variabla luar K-Ricbluu| 
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7200 3A0A42 

7203 3C 

7204 320A42 

7207 CD0071 

720A CDC071 
7200 C03874 


7210 


3A40F8 


7215 

7217 

7218 
721B 
7210 
72 1 F 
7220 


2801 

2B 

3A40F8 

E640 

2801 

23 

70 


7223 2001 

7225 23 

7226 FE8C 

7228 2001 

722A 2B 
7228 220642 

722E C05074 

7231 3A40F8 

7234 E660 


7238 CD7072 

723B CD8073 

723E 3A40F8 

7241 FE06 
7243 CA0070 

7246 3A0B42 

7248 B7 
724 A C 20072 
724D C38074 


LD A.C420AH) 

INC A 

L0 C420AHJ.A 

CALL 7100H 
CALL 71C0H 
CALL 7438H 
LO A.C0F840H) 

AND 20H 
Oft Z.4+03H 
OEC HL 
LO A.C0F840H) 

AND 40H 
OR Z.4+03H 
INC HL 
LD A.L 
CP 98H 
Oft NZ.4+03H 
INC HL 
CP OBCH 
OR NZ.4+03H 
OEC HL 

LD C 4206H ) . HL 

CALL 7450H 
LD A.10F840H) 

AND 80H 
OR Z.4+05H 
CALL 7270H 
CALL 7380H 
LO A, ( 0F840H 1 

CP 06H 
OP Z . 7000H 
LD A.C420BH) 

OB A 
OP NZ.7200H 
OP 7480H 



i»»« SCHUSS UM 




7270 217078 LD HL.7870H 

7273 7E LD A.CHLJ 

7274 23 INC HL 

7275 B6 OR (HL) 

7276 2807 OR Z.4+09H 

7278 23 INC HL 

7279 70 LD A.L 

727A FEBO CP 80H 


727C 20F5 OR NZ.4-09H 
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727E CS 
727F 2B 

7280 EB 

7281 280642 
7284 01D9FF 

7287 09 

7288 EB 

7289 73 

7288 23 

7288 72 

728C EB 
7280 3686 

728F 11008C 

7292 19 

7293 3603 
7295 C9 


RET 

OEC HL 

EX DE. HL 

LD HL.C4206H) 
LO BC.0FFD9H 

800 HL . BC 

EX DE. HL 

LO CHL ) . E 

INC HL 

LO CHLI.O 

EX OE. HL 

LO CHL1.086H 

LO OE.ORCOOH 

800 HL . OE 

LD (HD.03H 

RET 



i MSB abaptichtra 
; Petition »i.d.t in Hl 
i AGH int daf. ZnicHnn funr Schutt 
| fllltlt tun Farbtptichtr 

; und nit 3 belngaa 


; ••• EEPIOSIQN INITIALISIEREN UND FEIND 10ESCHEN «** 


7298 E5 

7299 FD2 15078 

7290 FD6E00 
7280 F06601 

7283 7C 

7284 B5 

7285 2812 

7287 F023 
7289 FD23 

7288 F023 

7280 FO 
728E 70 

728F FE 68 
72B1 C 29072 
72B4 Ei 
72B5 210000 

72B8 C9 
72B9 El 
72B8 7E 
72BB E601 
72B0 2801 

72BF 2B 
72C0 FD7500 

72C3 F07401 

72C6 F0360200 

72C8 EB 

72CB FD218078 
72CF F06E00 
7202 F06601 

7205 DF 

7206 280E 

7208 010400 

72DB FD09 
7200 FD 
72DE 70 
72DF B7 
72E0 2 OED 


PUSH HL 

LO I Y.7650H 

LD L.CIY+OOH) 

LD H.UY+01HJ 

LO 8.H 

OR L 

DR Z.S+14H 

INC IY 

INC IY 

INC IY 

DEFB OFDH 

LD 8.L 

CP 68 H 

3P NZ.729DH 

POP HL 

LD HL.OOOOH 

RET 

POP HL 

LO 8 , CHL ) 

8 NO 01H 

DR Z.S+03H 

OEC HL 

LO CIY+OOHl.L 

LD ( IY+01H ) , H 

LO CIY+02HJ.00H 
EX DE . HL 

LO IY.7880H 

LO L.CIY+OOH) 

LD H.CIY+01H) 

RST 1BH 

DR Z.S+10H 

LD BC.0004H 

800 IY.BC 

DEFB OFDH 

LO 8 . L 

OR 8 

DR NZ.S-UH 


; LSB in L 
; MSB in H 
HSB 


■ t drti Tabillnnpititii n< 


Sondtrbtfahl >1D A,L5B IY' 

> 6BH (IY ■ 7S6SH) ? 

utnn nicht, dann utch 729DH 

Stack korrigiaran 


Traflarpoalt Jan mruack in KL 


nit 01M undinrnn. Bai Ergtbait 0 int 
tt dnt linkaaZtichnn tintt Ptindaa 


ISB dar Ponition in Tnbatla nbltgtn 
HSB abaaio. 

Exploiionaiatbltr aut 0 aatian 


; IY auf Poationitaballn dar Painda 
; ISB dar Poaition in l 
; MSB ln H 

; vnrglaich alt TraPrarpaaition in DE 
i glaich 7 dann nach T2ESH 


addiaraa 

ISB tan IY in Akku 


72CPH 
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734E Dl 
734F 01F0D8 

7352 CD2073 

7355 0U8FC 
7358 CD2073 

735B 013CFF 
735E CD2073 

7361 01F6FF 
7364 CD2073 

7367 01FFFF 
736A CD2073 

7360 210879 

7370 110044 

7373 012800 

7376 EDBO 
7378 C9 


POP DE 
LO BC.008F0H 
CALL 7320H 
LD BC.0FC18H 
CALL 7320H 
LD BC , 0FF9CH 
CALL 7320H 
LO BC.0FFF6H 
CALL 7320H 
LD BC.OFFFFH 
CALL 7320H 
LD HL.7908H 
LO DE.4400H 
LO BC.0028H 
LOXR 
H6T 


iAdraataraar Auagi 
i EC ' -10000 
; Stall« barachnaa 


1 BC ■ -101 


; BC * -I 

i Stall« barachnaa 


; «rat« Bildachiratail« 




ila 


i ••• UNTEEfEOfiRANN SCKUESSE UND EKPIOSIONEN BEIEGEN ••• 


7380 DD2 17078 
7384 DD6E00 

7387 DD6601 
738A 7C 

7388 B5 

738C 2836 

738E 7E 
738F FEAO 
7391 381 A 

7393 3620 

7395 1108FF 

7398 19 

7399 112844 

739C DF 
7390 3005 

739F 210000 

73A2 1814 

73A4 7E 
73A5 FE 80 
73A7 3807 

73A9 FEAO 
73AB 3003 
73AD CD9872 
73B0 3A0A42 

73B3 E601 

73B5 C6A6 
7387 77 

73B8 DD7SOO 
7386 DD7401 

73BE 1100AC 
73C1 19 

73C2 3609 

73C4 DD23 
73C6 D023 

73C8 OD 
73C9 7D 
73CA FE 80 


LD IX.7870H 

LD L.CIX+OOH) 

LO H.CIX+01H) 

LO A.H 

OR L 

JR Z.S+36H 

LO A.(HL) 

CP OAOH 

3R C.B+1CH 

LO CHD.20H 

LD DE.0FFD8H 

ADO HL. OE 

LD 0E.4428H 

RST 18H 

3R NC . »+07H 

LD HL . OOOOH 

3R *+16H 

LD A.(HL) 

CP 80H 

3R C.S+09H 

CP OAOH 

3R NC.S+05H 

CALL 7296H 

LD A.C420AH) 

AND 01H 

ADO A . 0A6H 

LO ( HL) . A 

LD C IX+OOH) . L 

LD C IX+OIH) . H 

LD DE , OACOOH 

ADD HL. DE 

LD CHLJ.09H 

INC IX 

INC IX 

DEF8 ODOH 

LD A,L 

CP 8 OH 


; tSB dar fo.ition nach l 
■ SB aach H 


i odariart mit LSB 
; > D T dann nach 73C4H 


< AOH T 


; -40D 


i 2. BilachJraxaila 
; Bit Poaitioo aarglaichan 


Paimd«) 


; aamn Hiebt, daaa aacb 73B0K 
Untarprg.: Eiploaloa initialiaiaraa 
i Zaablar ia Akku 
■ it 01H undiaraa (argibt 0 odar I) 


LSB Scbuaapoaitioa «iadar ia Jaballa 
■ SB abanao 


uad alt 09H balagaa 
Taballaaiaigar <2 

LSB voa IX ia Akku 
; ■ BOR IIX • 7SS0H) 
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C28473 











5PICLSTART 







/ 


7532 3E07 

7534 D3F8 
7536 3EE7 
7538 03F3 

7538 C5 
753B 3E09 

7530 D3F8 
753F 78 

7540 E60F 
7542 03F9 

7544 3E06 

7546 03F8 

7548 3E1F 
7548 90 

7548 D3F9 
7540 380842 

7550 3C 

7551 320842 

7554 CD0071 

7557 CDC071 

7558 CD8073 

755D 285078 

7560 7C 

7561 85 

7562 2018 

7564 280642 

7567 ED5F 

7569 E601 

756B 2801 

7560 23 

756E 225078 

7571 325278 

7574 3E08 

7576 D3F8 
7578 3E0F 
7578 03F9 

7570 CI 

7570 10BB 
757F 21EE79 

7582 7E 


LD 8 , 07H 

OUT C 0F8H ) , 8 

LD 8.0E7H 

OUT (0F9HJ.8 

PUSH BC 

LO 8.09H 

OUT (OFSH).R 

LO 8.B 

8N0 OFH 

OUT C0F9H) , 8 

LD 8.06H 

OUT ( 0F8H ) . 8 

LO 8.1 FH 

SUB B 

OUT C0F9HK8 

LD R.C420RH) 

INC 8 

LD (4208HJ .8 

C8LL 7100H 

C8LL 71C0H 

C8LL 7380H 

LD HL.C7850H) 
LD 8.H 

OR L 

3R NZ.S+18H 

LD HL . < 4206H ) 
LD 8.R 

8ND 01H 

3R Z.S+03H 

INC HL 

LD (7850H) .HL 
LO C7852H) ,8 

LD 8 . 08H 

OUT (0F8H3.8 

LD 8. OFH 

OUT C 0F9H ) , 8 

POP BC 

D3N2 »-43H 

LD HL.79EEH 

LD 8. (HL) 


; 07H <5011110 7,231 

auf Port P5H Kanal I und 2 aardon 
; B7H nur Rauach|aaarator 

auf Port P9K «aathaltat) 
i Zaahlar rattan 
09H (SOUKD 9,0. .15 

j auf Port FIH Lantataarka aoa 
Zaahlar la Akku Kanal 2 aird alt 


; auf Port P9H (aaandart) 

; 06H 

; auf Fort PKH (SOUKD 6,0. .31 


; ainua Zaahlar nit daa Zaahlar |a- 
; auf Port P9H aandart) 

Zaahlar in Akku 


i odariart alt ISS 



7583 

7585 

7587 

7588 
7588 

7586 
7580 
7590 
7592 

7595 

7596 
7599 


FEBO 

2809 

2B 

7D 

FEE3 

20F5 

C3807S 

3620 

380142 

3D 

320142 
C 38074 


CP OBOH 

3R Z.S+OBH 

OEC HL 

LO 8.L 

CP 0E3H 

3R NZ.S-09H 

JP 7580H 

LO { HL ) . 20H 

LD 8, C4201H) 

OEC 8 

LD C 420 1 H ) , 8 

DP 7480H 
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«» DER ZEICHENSRTZ DES PROGRRMHS ZftLAGR »* 


CHRtC 126) CHRtC 129) CHRtC130) CHRtClSI) CHRtC132) CHRIC133) 



CHRtC 134) CHRtC 135) CHRtC 136) CHRtC 137) CHRtC 138) CHR*(133) 



CHRtC 140) 


CHRt C 142) CHRtC143) CHRSC144) CHRtC 145) 


ü St 



Ü S « II II 1 


CHRtC 152) 


CHRtC 153) CHRtC 154) 


CHRtC 155) CHRtC 156) 


CHRtC 157) 



11 


1 1 ü ^ üü ii 
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Ein schnelles Format lcrprogramm 
(nur für Diskettenbenutzer) 


das Colour-Geni< 


Sicher ist Ihnen nicht entgangen, daß die Foraat ierrout ine des 
Colour-DOS einen sehr großen Nachteil hat: sie ist zu langsaa' 
Wir präsentieren hier ein Programm, das Disketten auf den 
Colour-Genie in einem Bruchteil der gewohnten Zeit foraatiert. 
Dieses Programm besteht aus zwei Teilen: 

1. Ein Maschinenspracheprogramm. Geben Sie dieses bitte auf 
irgendeine Ort C 2 .B. mit dem Bas ic-Moni tor , den Sie weiter 
vorne in diesem Buch gelistet finden: für diesen sind auch 
die Prürsuamen an Ende jeder Zeile bestimmt, diese also 
nicht t 1 ) mit eingeben.) in den Rechner ein. Dann speichern 
Sie dieses Programm mit 
CMO"W FFORMAT/CMO . 6H8000 . 1H82A7 . 1H0066" 

auf Diskette ab. Geben Sie nun das kleine BOSIC-Prograaa 
ein, das hinter dem Hex-Listlng steht. Dieses Programm lädt 
und störtet dann das Format ier-Progrann. 


8000 28 3E 
8008 20 3C 
8010 70 81 
8018 03 FS 
8020 03 FS 
8028 08 00 
8030 00 00 
8038 3F 47 
8040 77 23 
8048 00 80 
8050 80 3fl 
8058 21 26 
8080 2B CD 
8068 E5 El 
8070 EB 36 
8078 23 36 
8080 77 23 
8088 EB CO 
8090 F8 23 
8098 FB 36 
80 AO 80 21 
80A8 44 4D 
80B0 BO El 
80B8 C5 46 
80C0 07 79 
80C8 CI C9 
8000 11 EF 
8008 82 36 
80E0 46 28 


2C 20 3C 3B 
40 3E 2C 20 
28 4E 16 4E 
00 01 16 4E 
00 00 14 FF 
00 01 OB FF 
D5 C5 3R OE 
57 21 00 80 
82 77 23 10 
09 11 88 82 

11 5fl E6 01 
80 2B 7E 32 
B8 80 3R OE 
E5 CD B8 80 
FE 23 3ft 1=17 
00 23 D9 7E 
36 01 23 36 
B8 80 20 FB 
06 00 36 E5 
F7 23 EB OD 
A8 A2 AF ED 
05 El 13 36 
21 A8 82 CI 
23 4E 23 78 

12 13 10 FC 
E5 05 C5 CO 
FF 21 EC FF 
FO CD 37 Dt 
27 CB 4E 28 


3E 2C 96 
3C 53 B5 
OC 00 B7 
OC 00 69 
OB FF 15 
06 00 17 
5A CB 07 
7A 90 88 
FT 21 OE 
21 14 C9 
20 03 2F 
AE 80 DO 
5A 4F 21 
20 FB CB 
82 77 IC 
23 09 CF 
F7 23 44 
EB 36 2C 
23 10 72 
C2 69 6E 
52 23 FC 
4E ED CB 
Dl C9 37 
87 28 F6 
AF 30 90 
BB 00 61 
01 A8 84 
OA CB 52 
F8 12 EO 




8280 E2 7D 
8288 20 F9 
8290 20 Fl 
8298 20 E 9 
82A0 DO E6 
82A8 


82 1A 02 03 
CB 4E 20 FS 
CB 46 28 08 
CB 7E 28 E8 
3C CI Dl El 


CB 4E 19 
CB 4E 60 
CB 4E 68 
7E 36 16 
C9 00 2E 


Und Mer dos dazugehoer i ge BASIC-Progrem«! 
10 CLS : PRINT"Fas t Format '* ! PR INT ; PRINT 
20 INPUT"Uel ches Laufwerk" ;A 
30 CMD”L FFORhATVCMO” 

40 DEFUSR1 -&H9222 
50 X-USRUA) 

60 I FX< >OTHENPRlNT*‘DlSh error No . ” : X 
70 END 



. auterung des Maschinenprogramms "FAST FORMAT" 


Das Programm wird alt dea USR-Befehl aufgerufen. Es wird zur 
Routine MRIN gesprungen. Dort wird das HL-Register (der Zeiger 
auf den Prograaatext ) gerettet. Oie Routine 0A7FH liest das 
Arguaent des USR-Befehls als Integerzahl in das HL-Register. 
interessant ist davon aber nur das niederwertige Byte, die 
Laufwerksnummer. in der die zu formatierende Diskette liegt. 

Die Routine MOUNT (eine DOS-Routine. die bei D140H beginnt), 
selektiert dieses Laufwerk und überprüft, ob eine Diskette in 
diesem Laufwerk liegt und die Lau fwerksk I appe geschlossen Ist. 
Sollte dies nicht der Fall sein, wird zur Fehlerbehandlungsrou- 
tine gesprungen. Sonst werden die Interrupts abgeschattet, der 
Bildschirm gelöscht C01C9H) und die eigentliche Format rout ine 
aufgerufen. Zum Schluß richtet das DOS das Inhaltsverzeichnis 
der Diskette ein (CALL 00E03HI . Wichtig: Beim Sprung auf diese 
Routine aussen das A. E und das D-Register den Wert Null 
enthalten. Schließlich, wenn alles gutgegangen ist. wird die 
Fehlernummer Null (kein Fehler) durch CALL 0A9AH zuruckgegeben. 
Nun die Erläuterung der einzelnen Unterprogramme: 


BUILD: Dieses Programm baut ab der Adresse BUFFER den zu 

schreibenden Track auf. Oas Aussehen des Tracks ist va- 
riabel. es hangt von der Einstellung für dieses Laufwerk 


SINSLE OENSITV: 
pro Sektor! 


Seitennummer (immer Null) 
Sektornummer 

Sektorlange (siehe unten) 
0F7H (generiert Prufsumme) 
i OFFH 
• 00H 
OFBH 

i 0E5H (n ist Sektor lange) 
0F7H (generiert Prufsumme) 


Diese Daten werden Tur jeden Sektor geschrieben. 
Oann folgen Bytes OFFH. bis die gesamte Spur 2000H 
Bytes lang ist. 
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DOUBLE DENS I TV J 


40 Bytes 4EH 
pro Sektor: 22 Bytes 4EH 

12 Bytes OOH 
3 Bytes 0F5H 
1 Byte OFEH 
1 Byte Spurnuaner 
1 Byte Seitennummer Ci euer Null) 

1 Byte Sektornuaaer 
1 Byte Sektorlenge (siehe unten) 

1 Byte 0F7H (generiert Prüfsyaae) 
22 Bytes 4EH 
12 Bytes OOH 
3 Bytes 0F5H 
1 Byte OFBH 

n Bytes Daten Cn - Sektor länge) 

1 Byte 0F7H (generiert Prüfsumee) 

Diese Daten werden für jeden Sektor geschrieben, 
dann folgen Bytes 4EH. bis die Spur 2000H Bytes ia 
Speicher belegt. 

Die Sektorlänge bedeutet folgendes: 

00 » 128 Bytes 

01 - 256 Bytes 

02 • 512 Bytes 

03 - 1024 Bytes 

WRTTRH: Die Routine WRTTRH schreibt den vorher vorbereiteten 

Speicherbereich ab BUFFER auf die Spur, auf der ao- 
aentan der Schreib-/Lesekopr des Laufwerks steht. 

FHSUB : Dieses Prograa* baut eine Spur ia Speicher auf, 

schreibt sie auf die Diskette und versucht dann, 
jeden einzelnen Sektor wieder einzulesen, ua sicher- 
zustellen. daß die Foraatierung einwandfrei verlau- 


FORMRT: FORMAT formatiert eine ganze Diskette. Oie Routine 

FMSUB wird für jede einzelne Spur aufgerufen, dann 
wird der Schreib-ZLesekopf des Laufwerks eine Spur 
weiter nach innen gesetzt. Dies wird sooft wieder- 
holt. wie die Diskette Spuren hat. 

RDSEC : RDSEC liest einen Sektor von der Spur, aur der der 

Schreib-/Lesekopf momentan steht. 
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) .07 7h 






jp nz.dsherr 
dec a 


jp dskerr 
f orn3: Id hl.str4 

Id de. ( 4020h J 


for*4 : 


Id a.CSaOeh) 
(d b.a 
Id de. sec t ab 

push bc 
Id a.Cde) 

Id hl . st r5+9 
call convrt 
Id hl.C4O20h) 
push de 
Id de. 18 
add hl.de 


ex de. hl 
Id hl ,str5 
Id bc.ll 




Id hl.burrer 
Id a.Cde) 


and Ich 
jr z.ror*6 
djnz for«5 
pop bc 
jp fmsub 
for*6 : inc de 

pop bc 
djnz fom4 


forsat: call restor 


forml : 


f orml 1 : 


Id CtrhsecJ.a 
Id COf fedh) , a 
Id a. ( 5a0dh ) 
Id b.a 
push bc 
Id a . C 5a0ah) 

jr z.forell 
Id hl . 5a09h 
set 4 . (hl 1 

Id hl . 5a09h 
res 4. (hl) 
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call 0o7f h 

call »ount 
JP nz.dsherr 
di 

Id a,0c9h 
Id < 4012h) .e 

Id ( 4023h). a 
Id Sp , l 40blh) 
call OlcSh 
call foraat 

Id (orredh).a 

Id de.O 
ca l l 0de03h 
Id hl.O 
call OaSah 
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■Offefh 

.Offech 

resel+5 

(Offeeh) .a 
:trksec) 
(Offedh) ,a 
(hl), 88h 


(hl ) 


: defb 0 

equ OdOcTh 
equ 0d0b6h 
equ 0dl37h 
equ 0d09bh 
equ 0d099h 
equ 0dl40h 



dann entsprechend Ihren Eingaben gePOKEd. Dieses Pro- 
lest bzw . schreibt dann einen Sektor und gibt als Ergeb- 
> USR-Aufrufs die Nummer des au f get retenen Fehlers an 
sin Fehler) . 


10 REM **** AD«address , SN=sector * . FL: Uread, 2=write, 3*wp. DR»L au 
rwerksnummer 

20 CLS:PRINT"Sektor I n-/0ut put PRI NT : PRINT 
50 INPUT "Lauf werk ( 0-3) " : DV : I F0V<00R0V> 3THEN30 
»0 INPUT*'Adresse":AD 
50 INPUT"Oishretativer Sektor"iSN 

50 INPUT"(l) Lesen. (2) Schreiben. (3) Lese- geschuetzt schreiben" 

:FL 

rO RESTORE 

50 READAS:IFA*o"SECI0"THEN80 

50 AS = ” " : FORX = 1 TO 1 5 : RERDR : AS • AS+CHRS C A ) : NE XTX : FORX« 1 TOFL : RERODR : NEXTX 
100 X-VARPTRCAS) : X-PEEKt X+l ) +256*PEEKCX+2) : I FX>32767THENX«X-65536 
110 POKEX+l.lAO RND 255) : PORE X+2 . C INTC AO/256) AN0255) 

120 P0KEX+4.ISN AND 255) : POKE X+S. I INT C SN/256 )AND255) 

130 P0HEX+7.CDR AND 255):P0KE X+8 , C INTCDR/256 ) AN0255) 

140 P0KESH5A08. OViDEFUSRl «X :X«USR1 CO) : I FX-OTHENEND 
150 PRINT"Disk Error No.":X:£N0 
160 DRTASEC 10 

170 DATA33.0.0, 17,0.0.205.0.0.111.38.0.195.154.10 
.-12417. -12421 
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Zwei Tt E s jur 
Col our -Genie 




einfarbigen Monitors au 


Viele Colour-Genie-Benutzer hebe an Ihren Computer einen 
eintägigen nonitor angeschlossen, da diese billiger als 
ein RGB-Farbmonitor sind, aber ein besseres Bild lierern, 
als ein Fernseher. 

In diesem Falle kann man die Schritt noch verbessern, indem 


1.3 Alle Farben auf hellwei0 umsetzt (COLOUR 18). 

Dies geht bei Bas i c-Progr ammen sehr einfach: 

In den Adressen 4390H bis 439FH legt das Basic 
eine Farb-Tabelle an. die festlegt, welche Farbe durch 
welchen Colour-Berehl gewählt wird. Alles was Sie nun 
machen müssen, ist in diese Tabelle überall den 15 
POKEn (Dies entspricht Hellweiß. s. auch Anhang C). 

Also: 

F0RA*tH4390 TO J.H439F ! PORE A, 15 : NEXT 

Bei naschinenspracheprogramnen und Programmen, die 

direkt in den Farbspeicher POKEn. hilft dies l.d.R. nicht. 

2.) Eine kleinen Gerateumbau vornimmt: 

ln der Video-Schaltung des Colour-Genies werden die 
Matrix-Punkte aller Zeichen verbreitert, damit bei 
Betrieb mit einem Farb-Fernseher die Punkte gro0 genug 
sind, um von der Lochmaskenrohre aufgelost werden zu 
können. 

Dies ist bei einem Monitor natürlich überflüssig. 

Diese Punktverbreiterung kann durch Entfernen eines 
Kondensators rückgängig gemacht werden. 

Dazu gehen Sie fol genderma0en vor: 

Losen Sie die 3 Schrauben vorne unten und offnen Sie das 
Colour-Genie - Achten Sie darauf. da0 Sie das Kabel des 
Level-Meters (wenn eingebaut) und das der Tastatur nicht 

Sie sehen vorne, in der Mitte der Hauptpl at 1 ne. diese 
Bautet Igruppe: 



Schneiden Sie nun mit einem feinen Seitenschneider eines der 
Anschi ußbeine des Kondensators CSS durch und biegen Sie den 
Kondensators etwas hoch. (So können Sie den Kondensator 

Schrauben Sie das Gerat wieder zu. Fertig ' 

(Etwas Elektronik-Erfahrung sollten Sie rur diesen Umbau 
haben - sonst lassen Sie einen kundigen Bekanntet) die 
Umrüstung vornehmen.) 



Anhang A Co L our -Bas IC -Tokens 


Basic Einfachtokens 

128 T END 129 T FOR 

130 J RESET 131 L SET 

132 4 CLS 133 * CMD 

139 * RANDOM 135 t NEXT 

136 - DATA 137 I INPUT 

138 | DIN 139 ~ READ 

190 _ LET 191 □ GOTO 

192 | RUN H3 • IF 

199 | RESTORE 195 - G0SU8 

196 T RETURN 197 T REM 

198 > STOP 199 < ELSE 

150 » TRON 151 4 TROFF 

152 - DEFSTR 153 t DEFINT 

159 » DEFSN6 155 L DEFDBL 

156 J LINE 157 A EDIT 

158 v ERRuP 159 * RESUME 

160 » OUT 161 U ON 

162 C OPEN 163 I FIELD 

169 n 6ET 165 U PUT 

166 ♦ CLOSE 167 H LOAD 

168 || MERGE 169 W NAME 

170 * KILL 171 I LSET 

172 □ RSET 1 3 T SAVE 

179 C SYSTEM 175 P, LP R I NT 

176 ü OEF 171 | POKE 

178 U PRINT 179 ,1 CONT 

180 _ LIST 181 ” LLIST 

182 I DELETE 183 @ AUTO 

189 U CLEAR 185 X CLOAD 

186 I CSAVE 187 _ NEU 

188 _ TABt 189 ■ TO 

190 . FN 191 - USING 

192 VARPTR 193 = USR 

199 + ERL 195 & ERR 

196 K STRING* 197 X INSTR 

198 * CHECK 199 M TIME* 

20ö ♦ MEM 201 * INKEY* 

202 ■ THEN 203 II NOT 

209 |1| STEP 205 A + 

206 = - £07 | f 

208 ~ / £09 “ E 

£10 _ AND 211 “ OR 

£ 1 £ I > 2 13 1 = 

2 1 9 ■. < 2 15 = SGN 

216 III INT 217 _ H ßS 

213 _ FRE 219 | INP 
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820 // POS 

222 ^ RHO 

221 W EXP 
226 r SIN 
228 ^ 8 TH 

230 • CVI 

232 l' CVD 
234 X LOC 
236 r MKI* 
238 « MKDJ 

240 -> CSHG 

242 ♦ FIX 

244 A STR* 
246 • ASC 

248 □ LEFT* 

250 V MID* 


221 II SQR 
223 / LOG 

225 I COS 
227 \ T AM 

229 » PEEK 

231 ID CVS 
233 0 EOF 

235 O LOF 
237 t MKS* 
239 *- CINT 

241 K CDBL 
213 » LEN 

245 » VAL 

247 :: CHR* 

249 X RIGHT* 
251 D ' 


Colour -Bas l c 


Doppel tokens 


255 128 
255 130 
255 132 
255 134 
255 136 
255 138 
255 140 
255 142 
255 144 
255 146 
255 148 
255 158 
255 152 


T COLOUR 
J KEYPAD 
4 PLOT 
* LGR 
- PLAY 
I SCALE 
_ NSHAPE 
| PAINT 
I NPLOT 
r CHAR 
> SWAP 
» CALL 
■ BGRD 


255 129 
255 131 
255 133 
255 135 
255 137 
255 139 
255 141 
255 143 
255 145 
255 147 
255 149 
255 151 
255 153 


r FCOLOUR 
L 3 0 Y 
* FGR 
-r FCLS 
I CIRCLE 
“ SHAPE 
□ XSHAPE 
CPOIMT 
_ SOUND 
^ RENUM 
< FKEY 
4 VERIFY 
t NBGRD 


(Guel t ig fu er die neuen ROMs) 
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138 = 8AH | 139 = 
Ml = 80H □ 142 = 
m = 90H I M5 = 
M 7 = 93H fl M8 = 
150 = 96H 1 151 = 
153 * 9 9 H * 154 = 
156 = 9CH J 157 = 
1 59 = 9 F H * 160 = 
162 = A2H C 163 = 
165 = A5H U 166 = 
168 = A8H || 169 = 
171 = ABH | 172= 
174 = AEH C 175 = 
177 = B1H ■ 178= 
180 = B4H _ 181 = 
183 = B7H |5| 184 = 
186 = BAH | 187 = 
189 = BOH • 190 = 

192 = C0H 193 = 
195 = C3H $ 196= 

193 = C6H * 199 = 
£01 = C9H ± 202 = 
£04 = CCH III 205 = 
207 = CFH | 208 = 
210 = D2H _ 211= 
213 = 05H I 214= 
£16 = 08H III 217 = 
219 = DBH | 228 = 
222 = OEH ^ 223 = 
225 = E 1 H I 226 = 
228 = E4H 1 229 = 
231 = E 7 H U.I 232 = 
234 = EAH *-, 235 = 
237 = EDH 238 = 
240 = F0H J 241 = 
243 = F3H # 244 = 
246 = F6H • 247 = 
249 = F9H X 258 = 
252 = FCH : 253 = 
£55 = FFH ■* 


8BH - 140 = 8CH _ 
8EH I 143 = 8FH • 
91 H — 146= 92H T 
94 H > 149 = 95H < 
9 7 H 4 152 = 98H • 
9 AH » 155 = 9BH L 
9DH a 158 = 9EH V 
A0H » 161 = A 1 H (I 
A3H | 164 = A4H n 
A6H * 167 = A7H 4h 
A9H W 170 = A AH * 
ACH 3 173 = ADH K 
AFH P, 176 = 80H V 
B2H U 179 = B3H fl 
B 5 H ~ 182 = B6H | 
B8H U 185 = B9H X 
BBH _ 188 = BCH _ 
6EH . 191 = BFH “ 
CI H = 194= C2H + 
C4H m 197 = C5H X 
C7H M 200 = C8H * 
CAH ■ 203 = CBH || 
CDH A 206 = CEH = 
D0H = £09 = D1H - 
D3H - 212 = D4H I 
06H ", 215 = D7H = 
D9H — £ 1 8 = DAH _ 
OCH 22 1 = DOH II 
OFH / 224 = E 0 H k 
E2H r 227 = E3H \ 
E5H » £30 = E6H • 
E8H 't' 233 = E9H □ 
EBH O 236 = ECH r 
EEH « 239 = EFH L 
F 1 H X 242 = F 2 H ♦ 
F4H * 245 = F5H » 
F7H :: £48 = FSH □ 
FAH U 251 = FBH 4, 
F DH r- 254 = FEH 


\ 




Es folgt nun die Vorbelegung der Forbtabelle ab I.H4390 : 

Farbe Bit 3 Bit 2 Bit 1 Bit 0 Wert Farb-Nr . 


Grau 0 0 0 0 

Cyan 0 0 0 1 

Rot 0 0 10 

Weiß 0 0 11 

Gelb 0 1 0 0 

Grün 0 1 « » 1 

Orange 0110 

Hellgelb 0111 

Blau 10 0 0 

Hellblau 1001 

Rotviolett 1010 

Blauviolett 1011 

Hellgrau 1100 

TürHls 1101 

nagenta 1110 

Hel l weiß 1111 
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Anhang D sonware-nstc 

Cd l nur-Gsn i e 


Sd f iUDTE 
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GRAFIK-EDITOR : Wenn Sie Ihr Colour-Genie auf 32K RAM auT- 
gerustet haben, honnen Sie dieses Programm einsetzten. denn 
der "GraT lk-Edi tor" hat eine Lange von 26000 Bytes' 

Er bietet die Möglichkeit. Groriken i» FGR-Modus mit einer 
Vielzahl von leistungsstarken Kommandos zu kreieren. 
Abschließend wird ein Bas ic-Progr am« erzeugt werden, das. 
eingebunden in ein eigenes Programm, das Bild blitzschnell 
wieder auf den Bildschirm bringt. Sie können also auch komplexe 
Grafiken sehr schnell fertigstellen und sie hinterher beliebig 
verwenden. 

Preis! 69.- DM 

SHAPER: Die Handhabung des Basicbefehls "SHAPE" ist recht 
umständlich. Hier bringt der "Shaper" Abhilfe: Mit wenigen 
Tastendrücken erzeugen Sie eine Figur, die abschließend 
ii Foraat der "Shape-Tabl e" abgespeichert wird. 

Preis: 25.- DM 

COLROT: Ein sehr nützliches Graf ikprograam. für alle die mit 
großen Texten Aufmerksamkeit erregen wollen (z.B. im 
Schaufenster). Colrot erzeugt Laufschriften mit bis zu S12 
Zeichen Lange. Titel und Fußschnft. Inversdarstellung. Inter- 
mezzo u.v.a.m. Neu:Texte können auf Band gespeichert werden. 

Ein komfortabler Editor ermöglicht einfaches Arbeiten. 

Preis: 69.- DM 

BAS1C0DE 2 (''): Oer neue Basicode-Standard für das 
Colour-Genie (kompatibel zu Basicode 1). Dieses Programm 
macht ihr Colour-Genie Basicode kompatibel ' 

Basicode ist das Standard-Basic, in dem z.B. das WDA-Fernsehen 
Programme austrahlt. Eine Hardwareanderung ist nicht nötig. 
Preis: 25.- DM 

ZEICHENEDITOR+ : Dieser Editor, in Maschinensprache geschrieben, 
ermöglicht es alle 128 Zeichen sehr schnell und komfortabel 
zu editieren. Dabei gibt es sogar Befehle um Kreise zu 
zeichnen. Zeichen zu kopieren/dupl iz leren/rot isren/lnvar t leren 
u.v.a.m. 

Preis: 39.- DM 

BASIC+5: Dieses Programm erweitert das normale Basic um 5 
Befehle: Im Grafikmodus können beliebige Texte dargestellt 
werden. Rechteckr l achen können gemalt werden, «it "SAVE" können 
Machinenspracheprogramme gesichert und mit "LOAD" komfortabel 
geladen werden. Ferner steht ein Eingabebefehl zur Verfügung, 
der an beliebige Speicherzellen schreibt. 










2.) SPIEL- U. GRAFIKPROGRAMME 


INVASION RUS DEM WELTRAUM: Ein Maschinenspracheprogramm , das 
die Sound- u. Grafiknogl Ichheiten des Colour-Gemes voll 
ausnutzt. Ihre Aufgabe ist es, einen Pulk von Invasoren 
abzuwehren. der sich der Erde nähert. 

Die Invasoren werden dabei laaer schneller und gefährlicher. 
Preis: 39.- DM 

PUNHTE3AG0 : Bei dieses Spiel geht es darum, alle Punkte ln 
einen Labyrmt aufzusaaael n , bevor Sie von einen Wächter 
eingeholt werden. Schnelle Grarik und Ton durch Maschinen- 
sprache. 

Preis: 25.- DM 

WURM: Unser derzeit schnellstes Act lon-Spiel . Ein Wurm könnt 
von oben den Bildschirm herab und versucht Sie zu vernichten. 
Dabei hat er die Spinne, die Fliege und die Ente als Helfer, 
«ein Spiel für ruhige Stunden' 

Preis: 39.- DM 

BREAK OUT: Bei diesen Video-Spiel nuP eine Mauer mit Ihren Ball 
zerstört werden. Dabei können verschieden Schwierigkeitsgrade 
vorgewahlt werden. Hohe Geschwindigkeit durch Maschlnensprache- 
pr ogr analer ung. 

Preis: 39.- DM 

DEMOPROGRAMM : Hiernit können Sie besser als mit der nlt Ihren 
Colour-Genle z.Zt. ai tgel l e Ter ten englischen Denokassette die 
Möglichkeiten Ihres Colour-Gemes demonstrieren. 

Preis: 26.- OM 

ANDROMEDA: Ein erstklassiges dreidmensionales Wel trounspiel 
mit ansprechender Grarik. Feindliche Raunschi f re können auf Sie 
zu; vernichten Sie diese, bevor sie Ihnen wertvolle Energie ab- 
gesaugt haben. Ist die Zeit abgelaufen. so eilt Ihnen Ihre 
Mutterbasis zu Hilfe; aber das Auftanken will auch gelernt 
sein. 

Preis: 39.- OM 

MAU-MAU: Endlich haben Sie einen Spiel Partner . der nicht wutend 
die Karten wegwirrt, wenn er an verlieren ist. Dies durfte wohl 
aber auch selten der Fall sein, vielmehr wahrscheinlich ist es. 
dop Sie den Conputer vor Wut ausschalten, da ihr Computer Dank 
einer hervorragenden Taktik auf Sieg programmiert ist. 

(Er schuaaelt nicht Gespielt wird nach den üblichen Regeln. 

Preis: 25.- DM 

HEKTIK: Stellen Sie sich vor. Sie wären in einen Neubau nit 6 
Geschossen, bei den die Ebenen durch Leitern verbunden sind. 
Oetzt können Ihnen von oben Verfolger entgegen. Sie nupen sich 
ihnen stellen, denn es gibt keinen Fluchtweg. Graben Sie an 
strategisch wichtigen Stellen Locher in den Boden, um so' Ihre 
Verfolger auszuschalten. 

Preis: 39.- DM 










MAMPFMAN: Ähnlich wie unser Spiel "Punktejagd". nur daß Sie 
hier von aehreren Gespenstern verfolgt werden, die Sie unter 
best 1 Baten Bedingungen jedoch auch fressen können. 

Preis: 25.- DM 

MAMPFMAN 2: Die neue Version von Maapfnan ' Excel lente Grafik 
und hohe Spieldynaaik. Ein sehr eapf ehl enswertes Programm 1 
Preis: 33.- DM 

COLOUR-KONG: Das absolute Videospiel ' Retten Sie Ihre 
Freundin vor dea wilden Affen. Mehrere Ebenen, super GraTik 
und Musik. Auf dea Band finden Sie Versionen für 32K und 
16K RAM 

Preis: 69.- DM 

PANZERMAMPF.- Ein Spiel für Zwei Personen C JOYSTICKS und 32M RAM 
erforderlich). Liefern Sie sich alt Ihrea Gegner spannende 
Panzerschlachten 1 Das Prograaa verfugt über 3 verschiedene 
Gelände ait Minen etc. 

Preis: 69.- DM 

EIS: Ein spannendes, zugleich jedoch auch recht schwieriges 
Actionspiel ait strategischen Eleaenten. Sie befinden sich in 
elnea Kühl raue und außen Eisblocke so ans Rutschen bringen, daß 
die gefährlichen Schneeaonster vernichtet werden. 

Preis: 39.- DM 

EAGLE: Vernichten Sie verschiedene Schwadronen von Vögeln, 
bevor Sie versuchen das große Mutterschiff zu zerstören. 

Preis: 39.- OM 


GAME of LIFE: Dieses bekennte Progrona smuliert das Wochstua 
von Bakterienkulturen. Die Regeln werden la Prograaa erklärt 
und einige interessante Figuren sind fest abgespeichert . 
Preis: 25.- DM 


SAUG: Ein lustiges Videospiel, bei dea Sie aus eines 
unterirdischen Labyrint Teraiten ansaugen außen, wobei Sie sich 
vor giftigen, roten Teraiten hüten außen. 

Das Spiel kann auch ait Joysticks gesteuert werden. 

Preis: 33.- DM 

ExREVERSIC: Spielen Sie Reversi gegen Ihr Cotour-Geme ' 

Dabei kann zwischen aehreren Spielstufen gewählt werden. 

Das Spielbrett wird auf ansprechende Weise graphisch 
dargestel l t . 

Preis: 39.- DM 

BANG-BANG: Zwei Cowboys begegnen sich ln der Prärie und liefern 
sich ein erbittertes Duell. Für dieses Spiel sind Joysticks 
er fordert ich . 

Preis: 39.- OM 

NETZO: Versuchen Sie ait Ihren Pinsel alle Flachen auszuaalen, 
ohne von Ihren Gegnern erwischt zu werden. 

Preis: 39.- DM 
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natur l ic 
Preis: ' 


MADTREE : 







LUNRR-LANDER: Eine perfekte Mond l andungss 1 nu l et Ion alt Super- 
graf ik i Die Idee ist zwar alt, aber die Ausführung dieses 
Progranmes nacht den "Lunar-Lander" zu einen unserer besten 
Spiele. Sie benötigen 32K Ran. Das Spiel kann wahlweise auch 
mit den EG2013-3oyst icks gesteuert werden. 

Preisi 39.- DM 

COLOUR-FROGGER; Retten Sie Ihren Frosch 2 uerst über die Strafe 
und dann über den Flu0 1 Ein spannendes Unterhai tungsspiel , 
an den die ganze Fantlie lange Zelt Spass haben wird. Besonders 
gelungen ist bei diesen Programm die nusikl Ische Untermalung. 
Preis: 39.- OM 

CRAZY-PflINT: Das neueste Spiel von 3. Buchaul ler. den Author 
des TCS-Choppers - Super-Grafik und Super-Ton 1 

In 16 Levels müssen Sie. ähnlich wie bei unserem Spiel ’Netzo’. 
versuchen alle Flachen auszumalen, ohne sich von den hektischen 
Gegnern erwischen zu lassen. 

Preis: 69.- Oh 

MEMORY: Das beliebte Brettspiel nun auch als Version für das 
Colour-Genie 1 

Schone Grafik und die gute Spiel Idee machen dieses Programm 
empfehlenswert . 

Preis: 39.- DM 
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4.3 MÜS I KPROGRAMME 


MUSIK: Dieses Programm spielt Testprogranmierte Musikstucke 
ait verblüffender Qualität. 

Preis: 25.- DM 

ORGEL: Spielen Sie Orgel auf Ihre« Colour-Genie 1 
Ihnen stehen zwei Manuale, einstellbares Delay und sogar 
eine Schlagzeugbegleitung zur Seite. 

Preis: 2S.- DM 

COLOUR- SYNTHESIZER: Ein Program«. das man gesehen haben muß. um 
es Überhaupt rur möglich zu halten. Der Colour-Synthesizer 
nacht aus Ihren Colour-Qenie einen vollwertigen 3-Kanal 
Synthesizer mit VCO. VOR, Hüllkurve. Schlagzeug... 

Reh t Einstei lungen aller Regler können vorprogrammiert , auf 
Tastendruck abgerufen und auf Band gesichert werden. 

Verblüffend ist auch die graphische Darstellung. 

Preis: 69.- DM 

COMPOSER: Mit diesem Programm können Sie sehr einfach eigene 
Musikstucke komponieren. Noten. Pausenzeichen u.s.w. werden 
grafisch dargestellt, können editiert und auf Band gespeichert 

Preis: 39.- DM 


»* STAND OER TCS-SOPTWAREL ISTE , COLOUR-GENIE. VOM 19-12.1983 ** 

Beachten Sie auch die für das Colour-Genie lieferbaren Bücher: 
Techmsches-Handbuch : Enthalt die kompletten Schaltplane. 
Erklärungen, CRTC-Unter l agen . PSG-Unter l agen . . . 

Preis: 49.- OM 

Dokumentiertes ROM-Listing für das Colour-Genie : Unerläßlich 
für den Maschinensprache-Programmierer. In diesem Buch ist der 
komplette ROM und reservierte RAM aurgelistet und erklärt. 
Preis; 59.- DM 

DAS Colour-Genie BUCH I : Auf über 100 Seiten finden Sie hier 
interessante Programme - von Spielen bis zu H i 1 fsprogrammen. 
zum Teil auch in Maschinensprache - sowie wertvolle Tricks und 
Erklärungen. Ein Muß für jeden Colour-Genie-Bes i t zer 1 
Preis: 39.- DM 

In Vorbereitung: Software für Oiskette. neue Spiele ... 
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BESTELLFORMULAR 

Zur Bestellung von Col our-Genie-Programmen honnen Sie dieses 
Formular benutzten. Schicken Sie dieses an Ihren GENIE-Hand l er 
oder direkt an TCS Computer GmbH 
Kolnstraße 4 
5205 St . August in 2 
Tel . : 02241 / 20071 

Bankverbindung: 

Rai f reisenbank Menden BLZ 37069507 Konto-Nr. 1525 

Oer Versand erfolgt per Nachnahme oder Vorauskasse auf obiges 
Konto Cdies natürlich nicht, wenn Sie bei Ihrem Händler 


Ich bitte um Zusendung folgender TCS Colour-Geme-Programme: 


Anzahl : Name des Programms : Preis/CM : Gesamt 



Meine Adresse ist : 


Straße: 

Ort i 

Datum: Unterschrift: 
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Kalle Braun • Jürgen Buchmüller • Frank Seger 


Das 

Colour-Genie 

Buch 3 



COMPUTER GMBH 


Das Colour-Genie Buch 3 






Vorwort 

Aller guten Dinge sind drei! 

Hier also das dritte Colour-Genie Buch. Wieder einmal hatten wir Zeit 
und einen freien Rechner, so entstand das 

»Colour-Genie Buch III« 

Wir hoffen, daß auch dieses Buch Ihnen wieder viele Anregungen 
vermittelt und Sie viel Freude an den gelisteten Programmen haben 
werden. 

Unter anderem finden Sie in diesem Buch viele Programme für Disketten- 
besitzer, so zum Beispiel ein Programm zum alphabetischen Sortieren 
des Inhaltsverzeichnisses. Auch die Spiele kommen wieder nicht zu kurz. 
Wieder hat Jürgen Buchmüller extra für das Buch in die T asten, will sagen, 
das Keyboard gegriffen und heraus kam „Ballons". 

Da die in diesem Buch gelisteten Programme doch schon relativ schwierig 
sind, empfehlen wir Ihnen, in jedem Fall zuerst die Colour-Genie- 
Bücher I und II durchzuarbeiten. 

Wir hoffen, daß Sie auch an diesem Buch wieder Ihre Freude haben 
werden! 

Bonn, im Mai 1984 

Kalle Braun 
Jürgen Buchmüller 
Frank Seger 











BflRON . GRAF. MARQUIS. HERZOG. GROSSHERZOG 
und »HONIG* 

BARONESS, GRÄFIN, MARQUISE. HERZOGIN, 
HERZOGIN. PRINZESSIN und »KÖNIGIN* 










130 PRINT S 366, STRINGS C 27 , 217) 

140 FOR A=0 TO 555 

150 NEXT 

160 CLS 

170 PRINT 

180 FOR ft* 1 TO 16 

190 REftO ftS 

200 NEXT 

210 COLOUR 16 

220 PRINT"Wieviete Mitspieler ’>" 

230 COLOUR 5 

240 PRINT"CE 1 ngobe zwischen 1 und 65”; 

250 GOSUB 7290 
260 F=VALC AS ) 

270 IF F< 1 OR F> 6 THEN CLS: GOTO 210 
280 FOR ft*l TO F 
290 READ TS C ft ) 

300 CLS 
310 PRINT 

320 PRINT”Wer regiert ”:TSCA); 

330 COLOUR 16 
340 INPUT NSCA) 

350 COLOUR 5 

360 NS C A) =NS( A) +" von ” +TSCA) 

370 CLS 

380 PRJNT"Ist " ;NS CA) 

390 PRINT”ein "( 

400 COLOUR 16 
410 PRINT"Mann 
420 COLOUR 5 
430 PRINT"oder eine 
440 COLOUR 16 
450 PRINT"Frau 
460 COLOUR 5 
470 PRINT'"?*’; 

480 VC A) =0 
490 GOSUB 7290 

500 IF AS<>"M" AND ASO"F” AND ASO”i” AND AS <>”f" THEN 490 

510 IF LEFTSCAS, 1)-”F" OR LEFTSCAS. 1 ) = " f " THEN VCA)=8 

520 G( A) =25 

530 HC A) = 10 

540 I ( A ) =5 

550 0 C A ) =2 

560 OC ft ) = 1420+RNDC 35 ) 

570 KC A ) = 1000 
580 L C A) = 10000 
590 RCA) =5000 
600 TC A) = 1 
610 UCA)=1 
620 NC A) =4 
630 PC A) *25 
640 OCR) =5 




650 MC fl) =25 
660 SC Al =2000 
670 NEXT 

680 FOR R=1 TO F 
690 RESTORE 
700 B=VC ft) +TC A) 

710 FOR C = 1 TO B 
720 REftO TS CA) 

730 NEXT C 
740 NEXT A 
750 PRINT 
760 PRINT 

770 PRINT”Wuenschen Sie eine Einweisung *> CO/Nl": 

780 QOSUB 7290 

790 IF AS="N" OR AS*"n" THEN 820 

800 IF nt<>"3" AND ASo'T’ THEN 750: GOSUB 7330 

810 GOSUB 7330 

820 CLS 

830 COLOUR 16 

840 PR INT"1 : Rnf aenger , 2 : Fortgeschri t tener , 3:Prori, 

Grossmeister" 

850 COLOUR S 
860 PRINT 

870 PRINT"Eingabe der Spiel staerke" : 

880 GOSUB 7290 
890 UC 01 =VAL C AS) 

900 IF UC0X1UC01 = 1 
910 IF UC03>4UC03=4 
920 UC01 =U( 01 +5 
930 E=E+1 

940 IF TC E 3 = - 1 THEN E=E+1 

950 IFCTC1K11ANDCTC21 < 1 1 ANDC TC 3) < 1 1 ANOC TC 4 1 < 1 ) ANDCTC 5) <11 ANDC TC 61 < : 
HEN 7660 

960 IF E > F THEN E = 0: YC 0) = YC 03 + 1 : GOTO 930 

970 IF YC03 >0CE1THEN 930 

980 IF YCO) =0C E 3 THEN 1340 

990 GOSUB 1780 

1000 GOSUB 2860 

1010 GOSUB 3720 

1020 GOSUB 3300 

1030 GOSUB 4540 

1040 GOSUB 5930 

1050 GOSUB 6410 

1060 GOTO 930 

1070 CLS 

1080 PRINT"Adel ige Soldaten Klerus Haendler" 

1090 PRINT 
1100 FOR A= 1 TO F 
1 1 10 COLOUR 5 
1 120 PRINT T$ C Al : NS C Al 
1130 COLOUR 16 
1140 COLOUR 2 

1150 PRINT NC Al : TABC 7 1 PC Al 


: TABC 161QCA1 : TABC 233 MC Al 


COLUUH 5 

PRINT STRING* ( 40 , 217 
COLOUR 16 

PRINT”Unt ertanen Lan< 
FOR A=1 TO F 
COLOUR 5 

PRINT TSCA) ; N* f RI 
COLOUR 2 


470 IF Y>6 PRINT”an Fleischverg 
480 PRINT 

490 INPUT"(DruecHe RETURN ) : A* 

500 IF F=1 THEN 7650 

510 GOSUB 4540 

520 GOSUB 1070 

530 GOTO 930 

540 I J -INTC I i J 

550 RETURN 

560 C 1 = I NT C C 1 ) 

570 RETURN 
580 S 1 = INT t S 1 ) 

590 RETURN 

600 K( E ) = I NT C KC E ) 1 

ilO RETURN 

.20 Z=RNDCR1*SCE1/100 
30 ZX = Z 
640 COLOUR 2 
j50 PRINT ZK; 

60 COLOUR 16 

70 PRINT”SKL aven in diesem Oahi 
i80 SCE1=SCE)+ZX 



GOTO 1900 

W»="Exzel ler>tes Wetter, herv 
GOTO 1900 
R=RND( 50 3 

R(E)=(R(E ) »100-RCE ) *R) / 100 
X=L (El 

Y=CSCE)-DCE)*100)*5 

1F Y<OY=0 

IF Y<X THEN X=Y 

Y=RCE)*2 

IF Y<X THEN X=Y 

RCE)=RCE) -X/2 



RC E ) =RC E 1 +H 1 

0' =NCE3*100+CCE3*40+M(E)*30+ 
L=C3*W+RND(6)+RNDt6)+l 03/10 
IF W=1 THEN L=L - 1 
IF H I < 1Y=2: GOTO 2080 



L=INT(L*10) 


L=L/10 
Z = 6-W 

G=CZ*3+RND(5)+RNDC53 3/5*Y#20 
RETURN 



2240 PRINT 

2250 PRINT Ul 

2260 PRINT" C": 

2270 COLOUR 2 
2280 PRINT H': 

2290 COLOUR 16 

2300 PRINT" Zentner )" 

2310 COLOUR 5 

2320 PRINT STRING1C40. 217): 

2330 IF KCE) <32766 GOSUB 1600 
2340 COLOUR 16 

2350 PR I NT "Ge t re i de Getreide Getreide- Land-” 

2360 PRINT”Vorraete Bedarf preis preis" 

2370 COLOUR 2 

2380 PRINT RCE ) ; TABC10)D<: TAB<20)G: TABC3UL 
2390 COLOUR 16 

2400 PRINT"Zentner Zentner 1000 Z. Hektar" 

2410 COLOUR 5 

2420 PRINT STRING* C 40 . 217): 

2430 COLOUR 16 

2440 PRINT"Staat5hasse: 

2450 IF KC E ) >0 THEN COLOUR 2 ELSE COLOUR 3 
2460 PRINT KCE) 

2470 RETURN 

2480 3=C3(E)*300-500)*T(E) 

2490 ON 3t E ) GOTO 2500. 2520. 2540. 2560 
2500 3*«"sehr gerecht" 

2510 GOTO 2570 
2520 34»"gemaessigt" 

2530 GOTO 2570 
2540 0*="st reng" 

2550 GOTO 2570 
2560 34="sehr streng" 

2570 Y=150-GCE)-HCE) -I (E) 

2580 IF Y<1Y=1 

2590 C i = ( N t E ) * 1 80+Q t E ) *75+M( E ) *20) * C Y/100 ) +UC E ) * 1 00 
2600 Sl«CNCE)*50+MCE)*25+UCE)*10)*( Y/100 ) *C 5-3 C E )) /2 
2610 I > =NCE)*25O+UCE)*20+C 10*3 C E ) *NCE )) *C Y/100) 

2620 C'«C'*G(E)/100 

2630 IF C <32760 GOSUB 1560 

2640 Sl =S'*HCE)/100 

2650 IF Sl <32760 GOSUB 1580 

2660 I i =1 i* ItE)/ 100 

2670 IF I' <32760 GOSUB 1540 

2680 COLOUR 16 

2690 PR I NT"S t aa t se l n nahmen ": 

2700 COLOUR 2 

2710 PRINT O+C'+SI+I ' : 

2720 COLOUR 16 
2730 PRINT”Gulden" 

2740 COLOUR 5 

2750 PRINT STRING1C40. 217): 

2760 COLOUR 16 

2770 PR INT"Zol 1 ge- Umsatz- Eink. Gericht" 
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2780 PRINT"buehren Steuer Steuer" 

2790 C0L0UR 2 

2800 PRINT GCE) ;"X",HCE) ;"X", KE) : "X” : TAB C 27) 3S 
2810 PRINT CI, S', II, 0 ; "Gl . " 

2820 COLOUR 5 

2830 PRINT STRINGS ( 40 , 217): 

2840 COLOUR 16 

2850 RETURN 

2860 CLS 

2870 PRINT 

2880 COLOUR 16 

2890 PRINT TS ( E 1 ; NS(E) 

2900 COLOUR 5 
2910 GOSUB 2150 
2920 COLOUR 5 

2930 PRINT STRINGS C 40 , 217); 

2940 COLOUR 16 

2950 PRINT"1 .-Getreide häufen" , "2;Get reide verkaufen": 

2960 PRINT"3:Land häufen ","4:Land verkaufen" 

2970 PRINT”Oede andere Taste zum Fort fahren" 

2980 COLOUR 5 

2990 PRINT STRINGS C 40 , 217); 

3000 COLOUR 16 
3010 GOSUB 7290 
3020 I 1 =VAL C AS ) 

3030 PRINT 

3040 IF I I > 4 THEN CLS: GOTO 2950 
3050 IF I I < 1 THEN RETURN 
3060 ON II GOTO 3070, 3160. 3210, 3250 
3070 PRINT 

3080 INPUT”Wievie l Getreide kaufen": I' 

3090 KCE)«KCED-CI '»G/1000) 

3100 RCE)-RCE)+I < 

3110 CLS 
3120 PRINT 

3130 PRINT TS CE): NSCE) 

3140 GOSUB 2320 
3150 GOTO 2920 

3160 INPUT"Wie v i e 1 Getreide verkaufen” ; I i 

3170 IF I i >RCE)PRINT”. . , so viel hast Ou nicht": PRINT: GOTO 3160 
3180 KCE)=KCE)+lIl*G/1000) 

3190 R(E)=RCE)-I ' 

3200 GOTO 3110 

3210 INPUT”Wiev le l Hektar kaufen”: I« 

3220 LCE)=LCE)+I ' 

3230 RCE) =K(E)~C I ' *L ) 

3240 GOTO 3110 

3250 INPUT"Wiev le t Hektar verkaufen": I i 

3260 IF I ' >CLCEI-5000)PRINT". . . so viel kannst Ou nicht verkaufen": GO 
TO 3250 

3270 L(E)=L(E)-I i 
3280 HCE ) =KC E ) +( I '*L) 

3290 GOTO 3110 
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3300 CLS 
3310 PRINT 

3320 PRINT Tt CE) i N*CE) 

3330 PRINT 
3340 GOSUB 2480 
3350 PRINT 

3360 PRINT" 1. Zol Igebuehren" 

3370 PRINT"2. Umsatzsteuer” 

3380 PRINT"3. EinK. Steuer” 

3390 PRINT"4. Gericht” 

3400 PRINT 

3410 PRINT"C Tippe Nummer zum Aendern” 

3420 PRINT" O zur Fortsetzung)"! 

3430 GOSUB 7290 
3440 I = VAL ( AS ) 

3450 PRINT 

3460 IF I >4 CLS: GOTO 3350 

3470 IF I<1 TUEN 3680 

3480 ON I GOTO 3490, 3540, 3580, 3620 

3490 IN PUT "Neue Zol Igebuehren CO bis 100 X)":I 

3500 IF I > 1001=100 

3510 IF I <01=0 

3520 GCE)=I 

3530 GOTO 3300 

3540 INPUT"Neue Umsatzsteuer CO bis 50 X)”;I 
3550 I F C I > 50 ) OR C I < O ) I = 5 
3560 HC E ) = I 
3570 GOTO 3300 

3580 INPUT”Neue Einkommensteuer CO bis 25 X)";I 
3590 I FC I < 0) ORC I > 25 ) THEN 1=0 
3600 I CE) = I 
3610 GOTO 3300 

3620 PRINT”Ger icht : l.sehr gerecht 2 .gemaessigt 3. streng 4. sehr st 
reng": 

3630 GOSUB 7290 
3640 I=VALCAS) 

3650 I F C I > 4 ) OR C I < 1 ) THEN 1 = 1 

3660 J C E ) = I 

3670 GOTO 3300 

3680 KCE)=KCE)+C'+S'+I '+3 

3690 IF KCEXO THEN H(E)=KCE)*1 .5 

3700 IF KCE) < C-10000*TCE) ) THEN 6900 

3710 RETURN 

3720 COLOUR 16 

3730 I NPUT”W iev iel Getreide gibst du nus":G' 

3740 IF G 1 < C RC E ) /5 ) PRINT"Du musst mindestens 20X ausgeben GOTO 373 

0 

3750 IF G 1 >CRCE)-CRCE)/5) ) PRINT"Du musst mind. 20X zuruechbehal ten" : 

GOTO 3730 

3760 RC E ) =RC E ) -G 1 

3770 CLS 

3780 PRINT 

3790 PRINT T*CE) : N$CE) 

3800 PRINT 
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3810 Z*G'/D'-1 
3820 IF Z>0Z=Z/*2 
3830 IF Z> .25Z=Z/10+ .25 
3840 ZX=SO-GCE)-HCE)-ICE) 

3850 IF ZX<0ZX=ZS*3CE) 

3860 ZX=ZX/10 

3870 IF ZX>0ZX=ZX+3-3 CE ) 

3880 Z*Z+CZX/10) 

3890 IF Z> .5Z* .5 

3900 IF 6 1 < ( D l - 1 3THEN 4250 

3910 A“7 

3920 GOSUB 1620 

3930 A = 3 

3940 GOSUB 1700 

3950 I FC GCE) +HC E ) ) <35MCE ) =MCE) +RNQC4) 

3960 IF ICE) <RNOC 20) NC E) =NCE ) +RNDC 23 - 1 : QC E ) =Q C E ) +RNDC 3) - 1 

3970 IF G' <CD'+DI*.3)THEN 4160 

3980 ZX=SCE)/1000 

3990 Z= C G 1 -0 1 ) /D 1*10 

4000 Z=Z*ZX*RNOC25)+RNDC40) 

4010 IF Z>32000Z=32000 
4020 ZX=Z 
4030 Z=RNDCZX) 

4040 COLOUR 2 
4050 PRINT Z; 

4060 COLOUR 16 

4070 PR I NT"Un t e r t anen kamen in die Stadt." 

4080 SCEXSCE3+Z 
4090 UCE) «UC E) + .5 
4100 ZK=Z/5 
4110 Z=RNDCZX) 

4120 IF Z>5OZ=50 

4130 MCE ) =MC E ) +Z 

4140 NC E ) «NC E ) + 1 

4150 QCE)*QCE>+2 

4160 IF 3CEX3 THEN 4240 

4170 3 1 “SCE ) /100*C3CE) -2)*C3CE)-2) 

4180 3I=RNDC3>3 
4190 SC E ) *SC E ) -3 1 
4200 COLOUR 3 
4210 PRINT 3 i ; 

4220 COLOUR 16 

4230 PRINT"Untertanen entfliehen dem Gericht.” 

4240 GOTO 4350 

4250 X=CD 1 -G 1 )/0 ' *100-9 

4260 XX=X 

4270 IF X>65 THEN X = 65: MCEXMCE)/2 
4280 IF X<0XX=0i X=0 
4290 A*3 
4300 GOSUB 1620 
4310 R=XX+8 
4320 GOSUB 1700 
4330 IF ZXilOOO THEN UCEXUC 


’E)/2 


4340 GOTO 4160 
4350 Z=ACE3*75 
4360 HCE3-HCE3+Z 

4370 IF Z>0 PRINT"Dein Markt brachte":: COLOUR 2: PRINT Zi: COLOUR 16: 
PRINT”Gutden Pacht ein” 

4380 IF SC E 3 <32766S • = S C E ) : GOSUB 1580: SCE!=S' 

4390 Z*DC E 3 *C 55+RNDC 2501 3 

4400 IF Z > OK C E 3 =K C E 3 +Z : PRINT”Deine Wollfabrik hatte”;: COLOUR 2: PRIN 
T Z:: COLOUR 16: PRINT"Gul den Gewinn zu verzeichnen“ 

4410 Z=PCE1*3 
4420 PRINT 

4430 PRINT“Du hast Deinen Sol daten" :Z : "Gulden Sold" 

4440 PRINT”ausbezahl t . " 

4450 KCE)«KCE1-Z 

4460 I FCL C E 3 / 10001 > PC E 1 THEN 7070 

4470 I FC LC E 1 /5003 < PC E 3THEN 4520 

4480 FOR W TO F 

4490 IF A=E THEN 4510 

4500 IF PCft)>CPCE3»2.43THEN 7070 

4510 NEXT 

4520 INPUT"C Druecke RETURN! RS 

4530 RETURN 

4540 CLS 

4550 COLOUR 16 

4560 PR INT"3ahr " : 

4570 COLOUR 2 
4580 PRINT YC03 
4590 COLOUR 16 
4600 PRINT 

4610 PRINT T*CE): N*CE3 

4620 PRINT § 400. "Nach Karte weiter mit < RETURN > " 

4630 PRINT § 160.; ” ” 

4640 INPUT " < RETURN > druecken fuer Landkarte" ; XXS _ r * *' - 

4650 FCLS 

4660 FGR 

4670 FCOLOUR 3 

4680 LX=C L CE! / 1000 3 

4690 IF LS<10X-80: Y«=27: GOTO 4770 

4700 IF LX<30X«80: Y-27- C LX- 10! : GOTO 4770 

4710 IF LS<50X=60: Y»27- C LX-303 : GOTO 4770 

4720 IF LX<70X=40: Y=27- C LX-503 : GOTO 4770 

4730 IF LX<90X=20: Y=27- CLX-703 : GOTO 4770 

4740 IF LX< 1 10X= 1 : Y=27- C LX-903 : GOTO 4770 

4750 X= 1 

4760 Y*7 

4770 REM 

4780 PLOT X, Y TO 127, Y 

4790 PLOT X, Y TO X. 47 

4800 IFCPCE3-51<CLCE 3/1000! THEN 5060 

4810 FOR A=X+1 TO X+6 

4820 FOR 8=Y+1 TO Y+5 

4830 PLOT A. B 

4840 NEXT B 


4850 NEXT 





S390 NPLOT 102. 29 
5400 NPLOT 104. 29 
5410 Z=B(E ) *2 
5420 IF Z=0 THEN 5540 

5430 IF Z>10 THEN PLOT 80. 33: PLOT 82, 33: PLOT 96. 33: PLOT 98. 33: 
PLOT 81, 32: PLOT 97. 32 

5440 IF Z>8 THEN Z=9: FOR A=87 TO 91: FOR B«31 TO 33: PLOT A, B: NEXT 
B, A: NPLOT 88. 33: NPLOT 90, 32: PLOT 88. 30: PLOT 90, 30: PLOT 89, 2 
9 

5450 FOR A=(89-Z3T0(89+Z3 
5460 FOR B=34 TO 36 
5470 PLOT A. 8 
5480 NEXT 8 
5490 NEXT A 

5500 FOR A= 1 90-ZD TOC 90+Z5 STEP 2 

5510 NPLOT A. 35 

5520 NEXT A 

5530 NPLOT 89. 36 

5540 Z=SCE)-DCE5*100 

5550 IF Z<1 THEN Z-l 

5560 Z=Z*S/LCE1*10+1 

5570 IF Z>10 THEN Z-10 

5580 Z* ( Z/10) * t 45- Y) 

5590 Z=INTC47-Z) 

5600 PLOT 119. Z TO 127, Z 

5610 NPLOT 122. Z 

5620 NPLOT 123, Z 

5630 NPLOT 125, Z 

5640 FOR A= 1 19 TO 127 STEP 2 

5650 PLOT A. Z+l 

5660 NEXT A 

5670 PLOT 118. Z- 1 

5680 PLOT 127, Z-l 

5690 Z=ACE1*2 

5700 IF Z=0 THEN 5780 

5710 IF Z> ( ( 126-X) -25 Z« t C 126-X) -2) 

5720 FOR A=X TO X+Z STEP 2 

5730 PLOT A. 39 

5740 PLOT A+ 1 . 39 

5750 PLOT A+l , 40 

5760 PLOT A+l. 41 

5770 NEXT A 

5780 Z=D(E) 

5790 IF Z=0 THEN 5890 
5800 IF Z>( 126-X1Z* 126-X 
5810 FOR A= 126-Z TO 127 
5820 FOR B=45 TO 47 
5830 PLOT A. B 
5840 NEXT B 
5850 NEXT A 

5860 FOR A=127-Z TO 126 STEP 2 
5870 NPLOT A. 46 
5880 NEXT A 
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5890 REM 

5900 GOSUB 7290 

5910 LGR 

5920 RETURN 

5330 CLS 

5940 PRINT 

5950 PRINT TKE! : NSCEl 

5960 PRINT"Staatsanschaf f ungen“ 

5970 PRINT 

5980 PRINT"1. Marktplatz 1000 Gulden" 

5990 PR INT "2 . Woll fabrih 2000 Gulden" 

6000 PRINT”3. Palast CTeill 3000 Gulden" 

6010 PR INT "4 , Kathedrale CTeill 5000 Gulden" 

6020 PR INT "5. 20 Soldaten 500 Gulden" 

6030 PRINT 

6040 PRINT”Du hast 

6050 IF KCEKO THEN COLOUR 3: PRINT MCE) : ELSE COLOUR 2: PRINT KCEls 
6060 COLOUR 16 
6070 PRINT”Gul den" 

6080 PRINT 

6090 PRINT"0 zur Fortsetzung. 6 Tuer Vergleich" 

6100 PRINT 

6110 PRINT"Deine Wahl '>"( 

6120 GOSUB 7290 
6130 I=VftLCRSl 
6140 CLS 

6150 IF Kl RETURN 

6160 IF I > 5 GOSUB 1070: GOTO 5930 

6170 ON I GOTO 6220. 6180, 6270. 6320. 6370 

6180 Dt El =0( El +1 

6190 KC El =KCE1 -2000 

6200 UCE 1 =UC E 1 + . 25 

6210 GOTO 5930 

6220 R( E 1 -RCE 1+1 

6230 MC El «MC El+5 

6240 KCEl.KCEl-1000 

6250 UCE1»U(E1+. 1 

6260 GOTO 5930 

6270 BCE1=B(ED+1 

6280 N( E 1 =NC ED +RNDC 21 

6290 KCE1=KCE1 -3000 

6300 UCEl=U(El+.5 

6310 GOTO 5930 

6320 CCE1=CCE1+1 

6330 QCE1=QCE1+RNDC61 

6340 KCE 1 =KC E 1 -5000 

6350 UC E 1 =UC E 1 + 1 

6360 GOTO 5930 

6370 PCEKPCE1+20 

6380 SIE 1 =Sl E 1 -20 

6390 KC El =KCE1 -500 

6400 GOTO 5930 

6410 Z=0 



80 A=0CE5 
80 GOSUB 6780 
00 A=W(E 5/5000 
10 GOSUB 6780 
20 A=LCE5/6000 
30 GOSUB 6780 
<10 A=MCE5/50 
“O GOSUB 6780 
.0 A=NCE5/5 
70 GOSUB 6780 
O A=PCE5/50 


IF fl > 88=8 

IFCYC05+25=OCE5TCE)=T( 
IF TCE5 >=fl THEN 6770 
T ( E 5 = A 
RESTORE 


6750 NEXT 

6760 IF TCED=8 THEN 6820 

6770 RETURN 

6780 IF fl> 10: A=10 

6790 A= INTC A5 

6800 Z=Z+fl 

6810 RETURN 

6820 CLS 

6830 PRINT 

6840 PRINT “Das Spiel ist ' 
6850 PRINT T*(E) : N*CE5 





7160 IF fl i >CLIE)-5000)fl' =( LC E ) -5000) /2 
7170 PRINT T*(Z); N*CZ) 

7180 PRINT"angegrif fen und beschlagnahmt”:«' 

7190 PRINT”Hektar Land'” 

7200 LCZ)=LCZ)+fl' 

7210 LCE)=L(E)-fl' 

7220 Z=RNDl 40) 

7230 IF Z>CPCE)-15)Z=PCE)-15 
7240 PRINT T*CE); NSCE): Z 

7250 PRINT”Sol daten in der Schlacht gefallen.” 

7260 PCE) = P(E) -Z 

7270 INPUT"( Druecke RETURN)";«* 

7280 RETURN 
7230 fl*= INKEY* 

7300 «*= INKEY* 

7310 IF «*=”” THEN 7300 
7320 RETURN 
7330 CLS 
7340 COLOUR 5 

7350 PRINT"Santa Paravia und Fuimaccio” 

7360 PRINT STRING*( 40 . 217); 

7370 COLOUR 16 

7380 PR INT "Du regierst einen italienischen Stadt-" 
7390 PRINT”staat aus dem 15. Jahrhundert. Regierst" 
7400 PR INT "du gut. bekommst du hoehere Titel. Der" 
7410 PRINT”1. Spieler, der Koenig(in) wird, hat" 
7420 PR INT "gewonnen . Regierst du schlecht, wird” 
7430 PR INT "de i ne Lebenszeit nicht reichen, um " 

7440 PRINVKoeni gC in) zu werden. Der Computer” 

7450 PRINT"zeichnet eine Karte deines Reiches." 


7460 PR INT "Die Groesse des Turmes links oben zeigt" 
7470 PRI NT"d 1 e Verteidigungskraft an. Wird der" 

7480 PRINT"Turm kleiner, brauchst du mehr Soldaten" 
7490 PRlNT”Wenn das PTerd mit dem Landarbeiter" 

7500 PRINT”( oben rechts) die obere Grenze erreicht.’ 
7510 PRINT"wi rd das ganze Land genutzt. Wenn du" 
7520 PRINT"zuwenig Getreide ausgibst, sterben” 

7530 PRINT"deine Untertanen. Gibst du viel” 

7540 PRINT "Getreide aus. kommen neue Einwohner" 

7550 PRTNT”hinzu. Hohe Steuern bringen mehr Geld” 
7560 PRINT”ein, verlangsamen aber das wirtschart-" 
7570 PRINT"l iche Wachstum." 

7580 COLOUR 5 

7590 PRINT STRINGH40. 217) i 

7600 PRINT"C Druecke < RETURN > , um zu beginnen)"! 

7610 COLOUR 16 
7620 INPUT RS 
7630 CLS 
7640 RETURN 
7650 GOSUB 4540 
7660 GOSUB 1070 
7670 PRINT 

7680 PRINT"SPIELENDE . <RETURN> fuer neues Spiel "J 
7690 INPUT AS 
7700 GOTO 10 
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Ein Super-Soielprogramm in Maschinensprache! BALLON 


Bei diesem Spiel geht es darum, zwei Männchen mit einen 
Trampolin so zu bewegen, daß sie ein drittes Männchen damit 
hochschleudern. Dabei soll es möglichst viele der Ballons 
zum zerplatzen bringen. 

Es gewinnt dabei langsam immer mehr an Hohe und wird immer 
schneller. Für jeden zerplatzten Luftballon gibt es 50 Punkte. 
Die Steuerung der beiden unteren Männchen geschieht mit den 
Pfeiltasten nach links bzw. nach rechts. 


Noch ein Tip zum spielen: 

Versuchen Sie das Männchen möglichst waagerecht fliegen zu 
lassen, da Sie so leichter die Luftballons holen können. 

Dazu lassen Sie das Männchen am linken bzw. rechten Rand des 
Trampolins aufkommen. 

Das Spiel liegt in Speicherbereich zwischen 4800H und 57FFH . 
also in Grafikspeicher CLGR-Modus) des Colour-Genie . 

Der erste Bereich von 4800H bis 4BFFH enthalt die Grafik für 
das Spiel. Danach folgen Routinen zur Bewegung der Ballons und 
Männchen. Ab 5100H ist der Schriftzug BALLON abgelegt. 

Er wird bei der Anfangsgraf lk in das normale Bild kopiert. 

Ab 5200H bis 55FFH ist die Tabelle für die definierbaren 
Zeichen angelegt, die im Anschluß an das Hexlisting noch einmal 
abgedruckt sind. 

Bei 5600H liegt die Haupt -Programmsch l ei fe mit der Tastatur- 
abfrage für die Bewegung. Oie Startadresse ist 5790H. Dort 
wird jedoch nur der High-Score mit Null belegt und sodann zur 
Anfangsgrafik verzweigt. 


Zur besseren Orientierung im Programm, hier die als 
Variablen benutzten Speicherzellen und ihre Bedeutung: 


4288H 

4289H 

428AH/428BH 

428CH/428DH 

428EH 

4290H/4291H 

4292H/4293H 

4294H/4295H 

4296H/4297H 

4298H 

429AH/429BH 

429CH/4290H 


Position der beiden unteren Männchen 

Flag für deren Bewegung 

X-Positlon des Dumpers mit LSB/MSB 

Y-Position des Dumpers 

Zahler für die Bewegung des Dumpers 

X-Richtung des Dumpers mit LSB/MSB 

Y-Richtung des Dumpers 

Burrer für X-Richtung 

Buffer Tur V-Richtung 

Zahler für restliche Ballons C31...0J 
Score mit LSB/MSB 
High-Score mit LSB/MSB 


Auf der nächsten Seite finden Sie 2 Bildschirmausdrucke. 

Es folgt dann das Hexlisting. das Sie mit dem Maschinensprache- 
monitor in Basic Caus Colour-Genie Buch I/IIJ. oder mit dem 
neuen Moschinensprachemoni tor aus diesem Buch, eingeben können. 
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4990 8C 8D 8E 20 20 20 20 20 
4998 20 20 20 20 20 20 20 20 
4980 20 20 20 20 20 20 20 20 
4988 20 20 20 20 20 20 20 20 
49B0 20 20 20 20 8C 8D 8E 20 
49B8 8C 8D 8E 20 20 20 20 20 
49C0 20 20 20 20 20 20 20 20 
49C8 20 20 20 20 20 20 20 20 
4900 20 20 20 20 20 20 20 20 
49D8 20 20 20 20 8C 8D 8E 20 
49E0 8C 80 8E 20 20 20 20 20 
49E8 20 20 20 20 20 20 20 20 
49F0 20 20 20 20 20 20 20 20 
49F8 20 20 20 20 20 20 20 20 
4800 20 20 20 20 8C 8D 8E 20 
4808 8C 8D 8E 20 20 20 20 20 
4810 20 20 20 20 20 20 20 20 
4818 20 20 20 20 20 20 20 20 
4820 20 20 20 20 20 20 20 20 
4828 20 20 20 20 8C 8D 8E 20 
4830 8C 8D 8E 20 20 20 20 20 
4838 20 20 20 20 20 20 20 20 
4840 20 20 20 20 20 20 20 20 
4848 20 20 20 20 20 20 20 20 
4850 20 20 20 20 8C 80 8E 20 
4858 8C 8D 8E 20 20 20 20 20 
4880 20 20 20 20 20 20 20 20 
4868 20 20 20 20 20 20 20 20 
4870 20 20 20 20 20 20 20 20 
4878 20 20 20 20 8C 8D 8E 20 
4880 8C 8D 8E 20 20 20 20 20 
4888 20 20 20 20 20 20 20 20 
4890 20 20 20 20 20 20 20 20 
4898 20 20 20 20 20 20 20 20 
4880 20 20 20 20 8C 8D 8E 20 
4888 8C 8D 8£ 20 20 20 20 20 
4 ABO 20 20 20 20 20 20 20 20 
48B8 20 20 20 20 20 20 20 20 
48C0 20 20 20 20 20 20 20 20 
48C8 20 20 20 20 8C 8D 8E 20 
4800 8C 80 8E 20 20 20 20 20 
48D8 20 20 20 20 20 20 20 20 
48E0 20 20 20 20 20 20 20 20 
4RE8 20 20 20 20 20 20 20 20 
48F0 20 20 20 20 8C 8D 8E 20 
48F8 8C 8D 8E 20 20 20 20 20 
4B00 20 20 20 20 20 20 20 20 
4B08 20 20 20 20 20 20 20 20 
4B10 20 20 20 20 20 20 20 20 
4B18 20 20 20 20 8C 8D 8E 20 
4820 8C 80 8E 20 20 20 20 20 
4828 20 20 20 20 20 20 20 20 
4B30 20 20 20 20 20 20 20 20 









4E98 19 77 11 F8 FF 1 9 77 11 
4EA0 28 00 19 77 18 13 3£ CO 
4Eft8 2B 77 11 28 00 19 77 11 
4EB0 BF FF 19 77 11 28 00 19 
4EB8 77 11 00 AC 19 7E OE Oft 
4EC0 FE 02 28 08 OE 19 FE 06 
4EC8 28 02 OE 32 06 00 2ft 9ft 
4ED0 42 09 22 9ft 42 E5 CD OC 
4ED8 4F El ED 5B 9C 42 DF 38 
4EE0 03 22 9C 42 2ft 9C 42 1 1 
4EE8 23 44 CD OF 4F 3E 08 03 
4EF0 F8 3E 10 D3 F9 3E OD D3 
4EF8 F8 3E 09 D3 F9 C3 20 SO 
4F00 3E 30 3C 09 38 FC 3D ED 
4F08 42 12 13 C9 11 07 44 Ol 
4F10 FO D8 CD 00 4F 01 18 FC 
4F18 CD 00 4F 01 9C FF CD 00 
4F20 4F 01 F6 FF CD 00 4F 01 
4F28 FF FF CD 00 4F C9 00 00 
4F30 26 47 3ft 8B 42 C6 98 6F 
4F38 36 9C 23 36 9D 23 36 9E 
4F40 11 FE AB 19 36 OE 23 36 
4F48 OE 23 36 06 3E 09 D3 F8 
4F50 3E OF D3 F9 06 10 3E 03 
4F58 D3 F8 78 D3 F9 C5 78 E6 
4F60 07 3C 47 CD 60 00 CI 10 
4F68 ED 3E 09 D3 F8 AF D3 F9 
4F70 01 00 00 CD 60 00 C3 34 
4F78 50 00 00 OO 00 00 00 00 
4F80 3E Oft D3 F8 3E 10 D3 F9 
4F88 3E 08 D3 F8 3E 00 03 F9 
4F90 3E OD D3 F8 3E 09 D3 F9 
4F98 3E 05 D3 F8 3E OF D3 F9 
4FA0 CD FO 14 3A ftA 40 E6 03 
4FA8 30 3D 5F 16 00 FE 80 38 
4FB0 02 16 FF 2A 90 42 18 22 
4FB8 90 42 Fl C9 CD 00 4C 21 
4FC0 03 00 22 88 42 21 00 06 
4FC8 22 8ft 42 21 00 08 22 8C 
4FD0 42 21 20 00 22 90 42 21 
4FD8 00 00 22 92 42 C9 00 00 
4FE0 21 50 FO 06 02 C5 23 23 
4 FES 23 06 21 36 04 23 10 FB 
4FFO 23 23 23 23 CI 10 EE 06 
4FF8 02 C5 06 21 23 23 23 36 
5000 06 23 10 FB 23 23 23 23 
5008 CI 10 EE 06 02 CS 06 21 
5010 23 23 23 36 02 23 10 FB 
5018 23 23 23 23 CI 10 EE C9 
5020 2fl 81 56 7C B7 28 04 28 
5028 22 81 56 Fl 3ft 88 42 3D 
5030 32 98 42 C9 3ft 16 48 3D 
5038 32 16 48 FE 30 28 05 CD 
5040 BC 4F Fl C9 Fl Fl C3 00 
5048 57 00 00 00 00 00 00 00 
5050 00 00 00 00 00 00 00 00 
5058 00 00 00 00 00 00 00 00 
5060 00 00 00 00 00 00 00 00 
5068 00 00 00 00 00 00 00 00 
5070 00 00 00 00 00 00 00 00 
5078 00 00 00 00 00 00 00 00 
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mgs fähiger Maschinensprache-Mon : 


Der Monitor, den Sie auf den folgenden Seiten finden, bietet 
nicht nur viele leistungsstarke Befehle, er hat noch einen 
anderen großen Vorteilt Er ist so optimiert programmiert, 
daß er nur 4K Byte lang ist. 

Damit ist er schnell geladen und nimmt nur wenig Speicher- 
platz in Anspruch. 

Ferner ist der Monitor voll relozierbar. 

Wenn Sie die Möglichkeit haben. 2532-Eproms zu programmieren . 
können Sie diesen Monitor sogar im EPROM lauren lassen ' 1 
Dies ist besonders interessant für Diskettenbenutzer, die ja in 
der DOS-Cart r idge einen Epromsteckplatz (EOOOH-EFFFH ) frei 
haben. 

Int folgenden finden Sie zwei Hex-L ist ings : Das erste ist die 
Diskettenversion des Monitors CA800H-B7FFH) , das zweite die 
Kassettenversion C7000H-7FFFH) . 

Die Startadressen sind ABOOH bzw. 7000H . 

Die Befehle des Monitors: 

Jeder Befehl des Monitors hat folgendes Format: 

Xaaaa < bbbb< cccc>> RETURN, wobei X einer der im folgenden 
beschriebenen Befehlskurzel und aaaa bis cccc Hexadezimalzahlen 


Aaaaa Ascu-Edit 

Die Pfeiltasten bewegen den Cursor, 

<BREAH> kehrt zur Kommandoeingabe zurück, 

<CLEAR> schaltet um zum Hex-Edit. 

Da Drive-Select (nur Diskversion ' 1 ) 

Das Laufwerk a CO-3) wird für den nachfolgenden 

ZugriTf selektiert. 

E Ex l t -Basic 

Faaaa bb Find Bytes 

Sucht ab Adresse aaaa nach maximal 4 Bytes bb. 

Werden keine Bytes angegeben, so wird mit den zuletzt 
angegebenen Bytes ab der neuen Adresse wei t er gesucht . 
wird auch die Adresse weggelassen, so wird mit den 
alten Bytes ab der alten Adresse+1 wei ter gesucht Wird 
die Bytefolge im Speicher gefunden, so werden Hex-Dump 
und Disassembler auf die gefundene Adresse gesetzt. 

Gaaaa Go Address 

Das Programm, das bei Adresse aaaa beginnt, wird als 
Unterprogramm aufgerufen, sodaß mit einem RET-Befehl 
in den Monitor zuruckgekehrt werden kann. Die Register 
werden so übernommen, wie sie in der Anzeige stehen, 
hinterher werden die neuen Inhalte angezeigt. 



Pfeiltasten bewegen den Cursor. 

<BREAK> kehrt zur Befehlseingabe zurück, 

<CLEAR> schaltet um auf Ascu-Edit. 

<;>, <-> schalten eine Seite (64 Bytes) vor/zuruck 
<F1 > «arkiert Cursorstelle 

<F2> berechnet relatives Offset von der Cursorposition 
zur letzten mit <F1> abgespeicherten Adresse, 
setzt dieses in die Adresse <F1> ein. 

Ia Inhaltsverzeichnis (nur Diskversion ■ ) 

Das Inhaltsverzeichnis der Diskette in Laufwerk a wird 
angezeigt . 

L Load 

Ein Programm von Hasset te/Disket te laden. 

Startadresse . Endadresse und Einsprungadresse werden 
angezeigt . 

Haaaa bbbb cccc 

Move memory 

Verschiebt den Spei eher berei ch von Adresse aaaa bis 
Adresse bbbb auf Adresse cccc. Die Bereiche dürfen 
sich auch überlappen. 

Oaaaa bbbb cccc dddd eeee 
Offset berechnen 

Im Speicherbereich von aaaa bis bbbb werden alle 
Adressen, die zwischen cccc und dddd liegen, in Adres- 
sen ab eeee umgeandert CRelozierfunkt lon) . 

Paaaa bbbb 

Printer l ist ing 

Der Speicherbereich von Adresse aaaa bis bbbb wird 
disassembl lert auf den Drucker ausgegeben. 

Qaaaa Disassembler 

Ab Adresse aaaa werden 11 Zeilen disassembl lert 
ausgegeben. Mit dem Aufwarts-ZAbwartspfei l können Sie 
einen Befehl ruckwarts/vorwarts gehen, mit <->,<:> 11 
Befehle CI Seite). 


Rsss aaaa cc 

Read sectors (nur Diskettenversion ■ ) 

Von der mit D selektierten Diskette werden cc Sektoren 
ab Sektor sss in den Speicher ab Adresse aaaa geladen. 

Saaaa bbbb cccc 

Save memory 

Schreibt den Speicherbereich von aaaa bis bbbb mit der 
Einsprungadresse cccc auf Kassette/Diskette. 
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8800 03 89 B3 
8808 OF CD 26 
8810 Fl C9 FE 
8818 30 12 13 
8820 3E 48 12 
8828 C6 90 27 
8830 C9 F5 7C 
8838 30 12 13 
8840 18 DB 7C 
8848 03 88 C5 
8850 FE ED 20 
8858 46 C5 El 
8860 B6 Fl CI 
8868 13 Fl C9 
8870 F5 3E 2C 
8878 18 ED CD 
8880 70 88 18 
8888 3E 20 18 
8890 06 3E 02 
8898 F4 88 E6 
8880 C9 C5 E5 
8888 00 21 68 
88B0 28 06 12 
88B8 38 05 42 
88C0 88 CD 91 
88C8 El CI C9 
88D0 CD F4 88 
88D8 42 23 7E 
88E0 88 Fl El 
88E8 B7 28 07 
88F0 04 23 Fl 
88F8 07 07 4F 
8900 09 7E 12 
8908 FE 4C 28 
8910 38 05 42 
8918 3E 49 12 
8920 57 12 13 
8928 06 42 B7 
8930 42 04 Fl 
8938 ED BO CD 
8940 E6 38 OF 
8948 Fl C9 C5 
8950 7E 4F 06 
8958 06 FF 23 
8960 CI C9 F5 
8968 OF CD F4 
8970 89 F5 1B 
8978 1B CD 75 
8980 Fl C9 C5 
8988 21 7C 8E 
8990 7E FE 20 


F5 F5 OF OF OF 
88 Fl CD 26 88 
80 38 06 F5 3E 
Fl F5 CD 03 88 
13 Fl C9 E6 OF 
CE 40 27 12 13 
FE 80 38 05 3E 
7C CD 03 88 7D 
CD 03 88 7D C3 
F5 28 00 42 7E 
01 23 23 4E 23 
CD 31 88 CD EE 
C9 F5 3E 28 12 
F5 3E 29 18 F7 
18 F2 F5 3E 41 
75 88 18 Fl CD 
Fl CD 87 88 F5 
DB F5 3E 2B 18 
18 02 3E 03 C3 
38 OF 4F 06 00 
F5 E6 07 4F 06 
8E 09 7E FE 4D 
13 Fl El CI C9 
B7 20 OD CD 64 
88 CD 6B 88 Fl 
C6 03 CD 64 88 
CD 8C 88 28 00 
CD 12 88 CD 6B 
CI F5 38 06 42 
8F 32 06 42 04 
C9 C5 E5 F5 E6 
06 OO 21 70 8E 
13 23 7E 12 13 
04 Fl El CI C9 
B7 28 F6 1B 1B 
13 38 05 42 C6 
Fl El CI F5 38 
28 05 8F 32 06 
C9 C5 01 04 00 

87 88 CI C9 F5 
OF OF CD 81 88 
F5 28 00 42 23 
00 FE 80 38 02 
09 CD 31 88 Fl 
E6 30 OF OF OF 

88 Fl C9 CD 62 
18 FE 50 20 07 
88 3E 46 12 13 
CD 98 88 CB 09 
09 7E 12 23 13 
28 02 12 13 CI 
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A998 C9 D6 20 CD 82 «9 CD 70 
A9A0 A8 C3 4A A9 F5 E6 07 4F 
A9A8 0C Fl OD CA 7E AA OD CA 
A9B0 56 AA OD 28 51 OD 28 3A 
A9B8 OD 28 32 OD 28 24 OD 28 
A9C0 OC 21 D8 AE CD 9A A8 09 
A9C8 06 01 C3 34 A9 ES 21 38 
A9D0 AF 06 02 CD 34 A9 El CD 
A9D8 3F A9 CD 70 A8 23 7E C3 
A9E0 12 A8 21 80 AF CD 34 A9 
A9E8 06 01 C3 3F A9 21 7C AF 
A9F0 18 F3 CB 5F 20 05 21 7C 
A9F8 AF 18 03 21 80 AF CD 34 
AAOO A9 06 01 C3 62 A9 21 38 
AA08 AF CD 34 A9 FE 20 30 18 
AAIO CB 5F 28 OE CD 7A A8 CO 
AA18 64 A8 06 01 CD 62 A9 C3 
AA20 6B A8 CD 17 AA C3 7F A8 
AA28 06 03 CB 5F 28 18 FE 30 
AA30 38 05 CD 7A A8 18 06 CD 
AA38 91 A8 CD 70 A8 CD 64 A8 
AA40 CD 4A A8 C3 6B A8 06 03 
AA48 CD 3D AA CD 70 A8 FE 30 
AA50 D2 75 A8 C3 91 A8 CB 5F 
AA58 28 13 21 8C AE CD 34 A9 
AA60 06 01 F5 CD 91 A8 Fl CO 
AA68 70 A8 C3 62 A9 21 38 AF 
AA70 CO 34 A9 06 03 CD 62 A9 
AA78 CD 70 A8 C3 4A A8 B7 20 
AA80 06 21 94 AF C3 El AB FE 
AA88 08 20 18 21 88 AF CD 34 
AA90 A9 3E 30 CD 6E A9 CD 70 
AA98 A8 CD 6£ A9 3E 27 12 13 
AAAO 06 01 C9 FE 10 20 OB 21 
AAA8 58 AF CD 34 A9 06 02 C3 
AABO 4A A9 21 5C AF CD 34 A9 
AAB8 FE 18 28 Fl 06 02 C3 99 
AACO R9 FE 76 20 08 21 6C AF 
AAC8 06 01 C3 34 A9 21 38 AF 
AADO CD 34 A9 06 01 CD 3F A9 
AAD8 CD 70 A8 C3 Al A8 F5 CD 
AAEO 9A A8 21 8C AE 09 CD 34 
AAE8 A9 FE 08 28 07 FE 10 30 
AAFO 03 CD 7A A8 06 01 Fl C3 
AAF8 Al A8 F5 E6 07 4F OC Fl 
ABOO OD CA 3B AC OD CA F4 AB 
AB08 OD CA EB AB OD 28 5C OD 
AB 10 28 48 OD 28 2E OD 28 OD 
AB18 21 60 AF CD 34 A9 06 01 
AB20 E6 38 C3 12 A8 CD 9A AB 
AB28 E5 21 8C AE 03 CD 34 A9 
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ACC8 AF CD 34 A9 CB 5F 28 1 1 
ACDO CD 7A A8 06 49 FE 5F 20 
ACD8 02 06 52 78 12 13 06 02 
ACEO C9 06 49 FE 4F 20 02 06 
ACE8 52 78 12 13 06 02 C3 7F 
ACFO A8 21 74 AF CB 5F 28 03 
ACF8 21 78 AF CD 34 A9 06 02 
ADOO CD 64 A8 CD 91 A8 C3 6B 
AD08 A8 21 AO AF 11 E8 41 CD 
AD 10 34 A9 2A 00 42 7E 06 01 
AD 18 C3 12 A8 FE 60 30 EA FE 
AD20 4E 28 E6 21 84 AF CD 34 
AD28 A9 06 30 FE 46 28 08 06 
AD30 31 FE 56 28 02 06 32 78 
AD38 12 13 06 02 C9 FE 50 30 
AD40 C8 21 44 AF CD 34 A9 1B 
AD48 1B 06 49 FE 4D 28 02 06 
AD50 4E 78 12 13 06 02 C9 FE 
AD58 44 20 AE 21 70 AF 06 02 
AD60 C3 34 A9 21 38 AF CD 34 
AD68 A9 06 04 CB 5F 20 09 CD 
AD70 3D AA CD 70 A8 C3 62 A9 
AD78 CD 62 A9 CD 70 A8 C3 3D 
AD80 AA FE 71 CA 09 AD 21 40 
AD88 AF CD 34 A9 21 98 AF CD 
AD90 34 A9 1B 06 02 C3 3F A9 
AD98 FE 70 CA 09 AD 21 3C AF 
AOAO CO 34 A9 06 02 CD 3F A9 
A0A8 21 9C AF CD 34 A3 1B C9 
ADBO 21 90 AE CB 5F 20 03 21 
ADB8 98 AE CD 34 A9 F5 CD 91 
ADCO A8 Fl CD 70 A8 06 02 C3 
ADC8 62 A9 E6 07 FE 04 D2 09 
ADDO AD E6 03 07 07 07 07 4F 
ADD8 7E E6 18 OF 81 4F 06 00 
ADEO 21 F8 AE 09 06 02 C3 34 
ADE 8 A9 22 00 42 C5 D5 11 E8 
ADFO 41 Ol 55 AE C5 AF 32 05 
ADF8 42 32 06 42 7E FE 40 DA 
AE 00 A4 A9 FE 80 DA CI AA FE 
AE08 CO DA DE AA FE CB CA 46 
AE 10 AC FE ED CA 89 AC FE DD 
AE 18 20 22 3E 01 32 05 42 32 
AE20 06 42 23 22 00 42 01 46 
AE28 AE C5 7E FE DD CA 45 AE 
AE 30 FE FD CA 45 AE FE ED CA 
AE38 45 AE 18 CO FE FD C2 FA 
AE 40 AA 3E 02 18 D7 CI 2A 00 
AE48 42 2B 22 00 42 3A 06 42 
AE50 B7 C2 09 AD C9 AF 12 78 
AE58 32 04 42 48 06 00 2A OO 




8FFS 3 8 20 48 4C 38 20 41 46 
B000 38 20 42 43 60 20 44 45 
B008 60 20 48 4C 60 20 41 46 
B010 60 20 49 58 38 20 49 59 
6018 38 20 53 50 38 20 SO 43 
B020 38 20 20 28 48 4C 29 38 
B028 20 20 20 28 53 50 29 38 
8030 20 53 58 58 48 58 50 4E 
B038 43 46 49 4C 45 4E 41 4D 
B040 45 20 53 54 41 52 54 20 
B048 45 4E 44 20 20 20 45 4E 
B050 54 52 59 58 20 20 20 20 
0058 59 20 20 20 20 58 2B 59 
B060 20 20 59 2D 58 20 20 58 
B068 2D 59 21 OO FO 01 28 00 
B070 11 01 FO 36 03 ED BO 06 
B078 OC C5 06 04 36 02 23 10 
B080 FB 06 06 36 04 23 10 FB 
B088 CI 10 EE 06 02 36 02 23 
B090 10 FB 06 OC 36 09 23 10 
B098 FB 06 02 C5 06 06 36 02 
B080 23 10 FB 06 04 36 04 23 
B088 10 FB CI 10 EE E5 Dl 13 
60B0 36 05 01 BE 01 ED BO 06 
B0B8 08 CS 06 06 36 02 23 10 
BOCO FB 06 04 36 09 23 36 09 
B0C8 23 23 36 01 23 36 01 23 
BOOO 23 10 FO 06 08 36 04 23 
B0D8 10 FB CI 10 DC C9 C5 D5 
BOEO E5 11 80 46 06 08 C5 CD 
B0E8 42 88 CD 84 88 E5 06 08 
BOFO 7E CD 03 88 CD 87 88 23 
B0F8 10 F6 El CD 84 88 01 08 
B100 00 ED BO CI 10 EO El Dl 
Bl 08 CI C9 CO 2B 00 B7 28 F8 
Bl 10 FE 01 C8 83 B3 C9 C5 D5 
BUS E5 21 C8 44 11 C9 44 01 
Bl 20 B7 01 36 20 ED BO El 01 
B128 CI C9 E5 Dl 01 F8 FF 09 
B130 CD E9 80 DF 38 F8 28 00 
8138 42 C9 CD 28 Bl 06 OB C3 
B140 84 8F 28 46 42 1 1 FB FF 
B 1 48 18 06 28 46 42 11 08 00 
Bl 50 13 22 46 42 C9 38 42 42 
B 1 58 B7 20 05 3E 08 CD 42 Bl 
Bl 60 3D 32 42 42 C9 38 42 42 
Bl 68 FE 3F 20 05 3E 37 CD 48 
B 170 Bl 3C 18 ED 38 42 42 FE 
Bl 78 08 30 05 C6 08 CD 42 Bl 
B 130 D6 08 18 DD 38 42 42 FE 
B 1 88 38 38 05 D6 08 CD 48 Bl 
8190 C6 08 IS CD 38 43 42 E6 
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Bl 98 01 EE 01 32 43 42 C9 3A 
B160 42 42 F5 E6 38 6F 26 00 
B1A8 ES Dl 29 29 19 Fl E6 07 
Bl BO 5F OT 83 C6 86 5F 16 46 
B1B8 3fi 43 42 B7 28 01 13 19 
B1C0 22 44 42 26 46 42 CD DE 
B1C8 BO 26 48 42 CD 36 Bl 26 
B1D0 44 42 36 7F CD 06 Bl FE 
BIOS 08 20 07 CD 94 Bl C4 55 
B1E0 Bl AF FE 09 20 07 CD 94 
B1E8 Bl CC 65 Bl AF FE 06 20 
Bl FO 04 CD 84 Bl 6F FE 5B 20 
B1F8 04 CD 74 Bl AF FE 3B 20 
B200 08 2A 46 42 11 40 00 18 
B208 OA FE 2D 20 OB 26 46 42 
B210 11 CO FF 19 22 46 42 AF 
B218 FE 1F CA 8E B2 CD E6 B2 
B220 FE 5C 20 07 22 22 42 CD 
B228 7C 35 AF FE 5D 20 26 ED 
B230 5B 22 42 B7 ED 52 11 80 
B238 00 19 7C B7 20 17 7D D6 
B240 81 2A 22 42 77 EO 5B 48 
B248 42 DF 23 D4 99 B4 CD 7C 
B250 35 AF 32 43 42 FE 30 DA 
B258 9F Bl FE 47 D2 9F Bl FE 
B260 3A 38 05 FE 41 DA 9F Bl 
B268 D6 30 FE 06 38 02 D6 07 
B270 4F 36 43 42 B7 20 12 CB 
B278 01 CB 01 CB 01 CB 01 3E 
B280 OF 66 Bl 77 3E 09 C3 E2 
B288 Bl 3E FO 66 18 F4 36 42 
B290 42 F5 E6 38 6F 26 00 E5 
B29S Dl 29 29 19 11 60 46 Fl 
B260 E6 07 83 5F 19 22 44 42 
B2A8 26 46 42 CD DE BO 26 44 
B2B0 42 36 7F CD 06 Bl FE 08 
B2B8 20 04 CD 55 Bl AF FE 09 
B2C0 20 04 CD 65 Bl AF FE 06 
B2C8 20 04 CD 84 Bl AF FE 5B 
B2D0 20 04 CD 74 Bl AF FE 1F 
B2D8 CA 9F Bl B7 28 BO CD E6 
B2E0 B2 77 3E 09 18 D8 ED 5B 
B2E8 42 42 16 00 26 46 42 19 
B2F0 22 48 42 C9 21 00 00 16 
B2F8 13 FE 20 28 FA 1B FE OD 
B300 37 C8 1A 13 D6 30 FE OA 
B308 38 02 D6 07 E6 OF 29 29 
B310 29 29 85 6F 1A FE 20 C8 
B318 FE OD C8 18 E5 11 00 44 
B320 16 13 FE OD CA A3 B3 FE 


B328 20 28 F5 32 20 42 26 48 
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B338 

B340 

B348 

B350 

B358 

B360 

B368 

B370 

B378 

B380 

B388 

B390 

B398 

B3A0 

B3A8 

B3B0 

B3B8 

B3C0 

B3C8 

B3D0 

B3D8 

B3E0 

B3E8 

B3F0 

B3F8 

B4O0 

B408 


B420 

B428 

B430 

B438 

B440 

B448 

8450 

B458 

B460 

B468 

B470 

B478 

B480 

B488 

B490 

B498 

B4A0 

B4A8 

B4B0 

B4B8 

B4C0 


42 22 08 42 OS 05 DD 21 
08 42 04 CD F4 B2 38 1 1 

05 DD 75 00 DD 74 01 DD 
23 DO 23 FE OD 28 02 10 
E9 3E 06 90 32 07 42 CD 
87 A8 3A 20 42 C9 48 36 
7F CD OA Bl FE 08 20 OA 
78 B9 28 06 04 36 20 2B 
18 ED FE OD 20 02 77 C9 
FE 20 38 E3 FE 80 30 DF 
77 78 B7 28 DA 05 23 18 

06 CD CS 01 ED 73 3C 42 

31 3C 42 FD E5 DD E5 D9 
08 F5 E5 D5 C5 D9 08 F5 
E5 D5 CS 31 88 42 11 28 
44 21 F2 AF DD 21 28 42 
06 OC C5 01 04 00 ED BO 
DD 7E 01 CD 03 A8 DD 7E 

00 CD 03 A8 DD 23 OD 23 
CD 84 A8 CI 10 E4 3E 46 
12 13 CD 87 A8 3A 2E 42 
4F 06 08 21 31 BO 3E 2D 
CB 01 30 01 7E 23 12 13 
10 F4 CO 84 A8 21 21 BO 

01 08 00 ED BO 2A 2C 42 
7E CD 03 A8 21 29 BO 01 
08 00 ED BO 2A 3C 42 7E 
CD 03 A8 23 7E CD 03 A8 
CD 6A BO 21 00 44 11 01 
44 01 27 00 36 20 ED BO 
2A 46 42 CD DE BO 21 00 
44 06 27 CD 5E B3 CD ID 
B3 2A 08 42 ED 5B OA 42 
01 A3 B3 C5 FE 41 CA AE 
B4 FE 44 CA 16 B5 FE 45 
CA 66 00 FE 46 CA 1B B7 
FE 47 CA 1B B5 FE 48 CA 
B4 B4 FE 49 CA EO B7 FE 
4C CA 29 B6 FE 4D CA C5 
B6 FE 4F CA E7 B6 FE 50 
CA BC B7 FE 51 CA BE B4 
FE 52 CA 06 B5 FE 53 CA 
91 B5 FE 56 CA 29 B6 FE 
57 CA 47 B5 FE 58 CA 78 
B7 FE 5A CA F2 B4 C3 A3 
B3 D5 E5 22 48 42 7D E6 
3F 32 42 42 5F 7D 93 6F 
22 46 42 El Dl C9 CD 99 
B4 C3 8E B2 CO 99 B4 AF 

32 43 42 C3 9F Bl E5 06 
OB CD A4 AF El CD OA Bl 






9660 

B668 

B6T0 

B678 

B680 

B688 

B690 

B698 

B6A0 

B6A8 

B6B0 

B6B8 

B6C0 

B6C8 

B6D0 

B6D8 

B6E0 

B6E8 

B6F0 

B6F8 

B700 

B708 

B710 

B718 

B720 

B728 

B730 

B738 

B740 

B748 

B750 

B758 

B760 

B768 

B770 

8778 

B780 

B788 

B790 

B798 

B7A0 

B7Aß 

B7B0 

B7B8 

B7C0 

B7C8 

B7D0 

B7D8 

B7E0 

B7E8 

B7F0 


B6 67 
03 22 
DF 30 
B6 4F 
01 71 
Oft B6 
B6 67 

11 48 
BO 11 
BO 11 
42 A8 
CO 42 
42 CD 
52 D8 
EB DF 

09 EB 
2A OC 
DO CD 
42 FE 
42 DF 
DF 38 

10 42 
FE ED 
72 Dl 
20 FE 
47 05 

12 13 
32 21 
42 ED 
3A 21 
D5 05 
20 02 

13 7B 
ED 53 
42 2B 
CD 16 

44 01 

45 2A 
CI 2A 
42 A8 
42 A 8 
42 CD 
El ED 
CD 42 
AF CD 
44 06 
10 F9 
ED 5B 
7D CD 
6F 26 
49 22 


ED 5B 
16 42 
03 22 
3A 20 
23 10 
CD OA 
22 18 
SB CD 
40 45 
68 45 
CD 84 
A8 CD 
42 A8 
E5 CI 
38 04 

09 EB 
42 22 
E9 AD 
4F CO 
30 ID 

16 B7 

19 EB 

20 01 
C9 3A 
01 28 
11 IC 

10 F9 
42 2A 
5B 1A 
42 47 

28 13 
18 F5 
B2 C8 
46 42 
06 OB 
Bl 21 

17 00 
08 42 
OA 42 
CD 87 
CD 87 
42 A8 
4B OA 
A8 C9 

29 05 
28 4E 
OE OD 
OA 42 
16 Bl 
00 22 
E8 41 


16 42 
ED 6B 
14 42 
42 FE 
DD 18 
B6 6F 
42 22 
28 CE 
01 11 
2A 14 
A8 2A 
84 A8 
C9 EB 
03 2A 
ED BO 
1B 2B 
46 42 
18 F9 
D5 ED 
ED 5B 
ED 52 
2A 00 
23 23 

07 42 
16 21 
42 7E 
3A 07 

08 42 
42 21 
1A BE 
13 23 
Dl 13 
13 18 
EB 23 
CD A4 
53 BO 
ED BO 
CO 42 
CD 87 
A8 E5 
A8 El 
CD 87 
42 B7 
06 01 
CO E5 
CD OE 
CD OE 
DF 38 
E6 03 
EA 41 
21 C8 


OF 38 
14 42 
CD OA 
56 28 
CI CD 
CD OA 
46 42 

21 42 
OO ED 
42 CD 
16 42 
2A 18 
B7 ED 
OC 42 
18 08 
EO 88 
C9 OF 
3A 20 
5B OE 
OC 42 
ED 5B 
42 7E 
73 23 
B7 28 
OA 42 
23 23 
42 3D 

22 1A 
IC 42 
20 10 
1A BE 
18 E5 
ES Dl 
22 1A 
AF C9 
11 FO 
1 1 18 
A8 ES 
A8 CD 
09 CD 
B7 ED 
A8 CS 
ED 42 
CD A4 
21 C8 
05 23 
05 El 
DD C9 
C6 30 
21 22 
44 22 


48 




































7F88 7D 81 4F 23 10 F7 CD 20 
7FB0 7D ED 5B Oft 42 DF 38 D7 
7FB8 3E 78 CD OB 7D 28 OC 42 
7FC0 7D CD OB 70 7C CD OB 7D 
7FC8 C3 BO 7B FF FF FF FF FF 
7FD0 FF FF FF FF FF FF FF FF 
7FD8 FF FF FF FF FF FF FF FF 
7FE0 FF FF FF FF FF FF FF FF 
7FE8 FF FF FF FF FF FF FF FF 
7FF0 FF FF FF FF FF FF FF FF 
7FF8 FF FF FF FF FF FF FF FF 
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Ein Hl l fsprogramm fuer Hasset tenbenutzer 
TPiPE-EOITOR 


Loading TAPEDI «P 

LENGTH O* PROGRAM 09C9. ENTRY 50FB. 
SYSTEM-TAPE COPY J, EDITOR Cc) 1983 
wntten by Duergen Buchmueller 
L-LOAD S-SAVE M-MERGE E-EDIT A-SCHUTZ 
B-BASIC N-NAME C-CHANGE ENTRY 
Poimand ? 


4800 0302042595445532046524F40204 1 44 

4810 5245535320 303030302E20434845434B 

4820 53S54D20303020204C454E47544S204F 

4830 462050524 F47 524 1 4D20303030302E20 

4840 454E54525920303030302E2020202020 

4850 4C 6F6 1 64696E6720536 1 76696E672020 
4860 4D6572676520746F204 F6C64204E616D 

4870 65202E2E2E2E2E2E204E6577204E616D 

80 BYTES FROM ADRESS 4800. CHECKSUM F6 
4800 00 BYTES FROM ADRESS 0000. CHECK 

4820 SUM 00 LENGTH OF PROGRAM 0000. 
4840 ENTRY 0000. Loading Saving 

4860 Merge to Old Name New Na* 


An den obigen Bi ldschirmausdrucken können Sie schon ungefähr 
erkennen, was Ihnen der "Tape-Editor" bietet. 

Sie können mit ihm SYSTEM-Bander laden, abspeichern und mehrere 
SYSTEM-Bander zu einem Programm zusammenfassen. 

Der Name und die Startadresse des zu schreibenden Bandes können 
geändert werden. 

Desweiteren können die Programme vor de* Abspeichern in 
hexadezimal oder ASCII editiert werden, wobei Sie sogar Blocke 
loschen oder einfugen können. 

Ferner bietet der Tape-Editor die Möglichkeit, Bonder geschützt 
aufzuzeichnen, d.h. das Programm wird mit einem AUTO-Start 
versehen, der Video-DCB wird 'verbogen' (damit lasst sich das 
Band mit einem Monitor nicht mehr laden) und die RST-Tasten 
werden desakt l vi er t . 

Alles in allem ein sehr nützliches Programm für Co t our-Genie- 
Besitzer. die sich eine Fl oppyd iskstat lon noch nicht leisten 
können i 











Das Hex-Ltstirxg 


4800 

4808 

4810 

4818 

4820 

4828 

4830 

4838 


4850 
4858 
4860 
4868 
4870 
4878 
4880 
4888 
4 890 
4898 
4880 
4888 
48B0 
48B8 
48C0 


48E0 

48E8 

48F0 

48F8 

4900 

4808 

4910 

4918 

4920 

4928 

4930 

4938 

4940 

4948 

4950 

4958 

4960 

4968 

4970 

4978 

4980 

4988 

4990 


30 30 20 42 59 54 45 53 
20 46 52 4F 4D 20 41 44 

52 45 53 53 20 30 30 30 
30 2E 20 43 48 45 43 4B 

53 55 4D 20 30 30 20 20 
4C 45 4E 47 54 48 20 4F 
46 20 50 52 4F 47 52 41 
4D 20 30 30 30 30 2E 20 
45 4E 54 52 59 20 30 30 
30 30 2E 20 20 20 20 20 
4C 6F 61 64 69 6E 67 20 
53 61 76 69 6E 67 20 20 
4D 65 72 67 65 20 74 6F 
20 4F 6C 64 20 4E 61 6D 
65 20 2E 2E 2E 2E 2E 2E 
20 4E 65 77 20 4E 61 6D 
65 20 3F 20 49 6E 73 65 

72 74 20 41 64 72 65 73 

73 2C 42 79 74 65 73 20 
4F 6C 64 20 45 6£ 74 72 
79 20 30 30 30 30 20 4E 
65 77 20 45 6E 74 72 79 
20 3F 20 46 69 6E 64 20 
50 72 6F 67 72 61 6D 2D 

41 64 72 65 73 73 20 20 
3C 02 16 40 00 00 56 00 
3C 02 16 40 E3 03 3C 00 
3C 03 E2 41 C3 00 00 00 
3C 03 BE 41 C3 00 00 00 
43 68 65 63 6B 73 75 6D 
20 45 72 72 6F 72 00 00 
4E 6F 20 53 59 53 54 45 
40 20 54 61 70 65 0D 00 

42 75 66 66 65 72 20 66 
75 6C 60 00 00 4E 6F 20 
50 72 6F 67 72 61 60 20 
69 6E 20 42 75 66 66 65 
72 OD 00 53 59 53 54 45 
40 2D 54 41 50 45 20 43 
4F 50 59 20 26 20 45 44 
49 54 4F 52 20 20 20 28 
63 29 20 31 39 38 33 20 
20 20 20 77 72 69 74 74 
65 6E 20 62 79 20 4ft 75 
65 72 67 65 6E 20 42 75 
63 68 60 75 65 6C 6C 65 
72 20 20 20 20 20 20 20 
20 20 20 20 20 20 20 20 
20 20 20 20 20 20 20 20 
20 20 20 20 20 20 20 20 
20 20 20 20 20 20 20 20 
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50C0 79 B7 20 01 04 03 03 03 
50C8 03 03 FD 09 18 D7 FD 7E 
50D0 01 90 32 03 4B FD E5 DD 
50D8 El CD eC 4B CD 2B 4B CD 
50E0 8F 4B C3 BF 4C CD 97 4F 
50E8 0F OF OF OF 4F CD 97 4F 
50F0 81 C9 CD E5 50 57 CD E5 
50F8 50 5F C9 31 88 42 BF 32 
5100 23 40 CD 82 4B CD 6C 4B 
5108 CD 7C 35 21 28 48 11 78 
5110 44 01 28 00 ED BO 21 2B 
5118 49 11 C8 44 01 02 00 ED 
5120 BO ED 53 20 40 3E OE CD 
5128 33 00 CD 49 00 FE 45 CB 
5130 9D 4C FE 4C CB 9F 4B FE 
5138 53 CB 17 4C FE 4D CB 55 
5140 4C FE 42 CB 66 00 FE 41 
5148 CB 7B 4E FE 4E CB OD 4F 
5150 FE 43 CB 57 4F C3 2B 51 
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2. Byte Bit 7=1: Dieser File darf nicht ver- 

größert werden. 

Bit 7=0: Dieser File darf vergrößert 
werden [Normal fall 3 

Bit 6 : nicht benutzt 

Bit 5 = 1 ; Dieses File wurde verändert 

Bit 5=0: Dieses File wurde nicht verän- 
dert 

Bit 4-0 : nicht benutzt 


3. Byte nicht benutzt 


4. Byte Die Position des ersten nicht mehr belegten 

Bytes im letzten benutzten Sektor des Files 
(Siehe unten) 

5. Byte Die Record-Lange des Files (nur wichtig bei 

Benutzung von Random-flccess-Fi l es) 

6. bis 13. Byte Filename, linksbündig, aufgefullt mit Leer- 

14. bis 16. Byte Filetyp, linksbündig, aufgefullt mit Leer- 


17. bis 20. Byte nicht benutzt 

21. /22. Byte File-relative Seht ornumer des letzten 

benutzten Sektors des Files 

23. bis 30. Byte 4 Byte-Paare, die jeweils einen Bereich auf 
der Diskette beschreiben, der dem File zu- 
geordnet ist: 

1 . Byte : 

- 255 ( 0FFH) = Fileende 

- 0 bis 191 (00H bis OB FH ) 

Nummer des Lumps, in dem der Bereich 
liegt 








0000 

0010 

0020 

0030 

0040 

ooso 
0060 
0070 
0080 
0090 
OOBO 
OOBO 
OOCO 
0000 
OOEO 
OOFO 
Ori v< 
0000 
0020 
0040 
0060 
0080 
OOFIO 
OOCO 
OOEO 

OOOO 

0010 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

0090 

OOAO 

OOBO 

OOCO 

OODO 

OOEO 

OOFO 


FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF \ 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 1 „, s - TcJottt*. 

FFFFFFFFFFFFF9F8F8F8F8F8F8F8F8F8 ) ff 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

ffffffffffffffffffffffffffffffff 

FFFFFFFFFFFFFFFFFFFFFF820000E042 


ODFFFFFFFFF FFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
s 0, FRS OOOO. DRS 0360 DIR/SYS 


22.03.84 

— ' > Qiik tneumt 



;F045 R900004R30RE 00000000' 
roOOOÖÖÖOTOOOOOQQOOOOO 0 0 0 0 0 0 5 
>O0OOOODCOO69< 

i 0 0 O O O 0 o öooOoooooaoooooo 0 0 0 0 0 
00000068004300000029000000« 

oooooooooooo« 

OOOOOODDOOE 3« 

00000000000000000' 
00000038000000000000000000000000 

oooooooooooooooooooooooooooooooo 
00000000000000000000000000000000 
00000000« 


— >> Uajiicool* ' TAPIVI /CHß * 

* .. •UHRCOfy/CbD" 


W«w It - 3>wü* - lotfce//« 


Drive O, FRS 0001, DRS 0361 DIR/SYS 

OOOO o E . .00 

0020 . Qr 1 

0040 . . .k.C. . . 3 

0060 

0080 ... 8 

OOAO 

OOCO 

OOEO 
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0060 

0080 

OOfiO 

OOCO 

OOEO 


fiuf 


und der vorigen 


Seite 

Disketi 


’inden Sie mit Kommentaren 
sn-Bel egungs-Tabel le. einer 


/ersehene Au; 



DIRSORT - alphabetisches Sortieren des Inhaltsverzeichnisses 
einer Diskette in BASIC 


Es ist Ihnen doch bestimmt schon aufgefallen, welche Schwierig- 
keiten es bereitet, auf einer sehr vollen Diskette einen be- 
stimmten Programmnamen zu finden. Es wäre doch viel einfacher, 
wenn alle Na-en alphabetisch sortiert waren. 

Ein Programm, das diese Aufgabe für Sie übernimmt, finden Sie 
11 folgenden beschrieben und gelistet. 


Zeile 10 - 100 


Im t 




Zeile 


110 


N$ enthalt den Filenamen DIR'SYSrd 


Zeile 


120 - 200 : 


Test, ob DIR/SYS auf der Diskette vorhanden 
ist und sich eröffnen laßt 


Zei 1 


e 220 


File als Random-Access-Fi le eröffnen, 
welches nicht erweitert werden darf 


Zeile 230 


240 : 


Arrays entsprechend der Inhaltsverzeichnis- 
große def mieren 


Zei 


le 250 


Einen Sektor in 8 Teile je 32 Bytes auftei- 


Zeile 260 - 320 : 

Zeile 330 - 390 : 
Zeile 400 - 480 i 


Zeile 490 - 860 : 
Zeile 870 - 900 s 


Zeile 

Zeile 

Zeile 


910 -1120 : 
1130-1380 : 
1390 s 


Eintragssektoren einiesen und in DE$(X) ab- 

Hash-Codes m HCCX) einiesen 

Zahl von freien, unsichtbaren und SYSTEM- 

Inhal tsverzeichmsbeschreibung ausgeben 

Wenn nach NAME sortiert werden soll, sind 
die Bytes 6 bis 13 relevant, sonst die 
Bytes 14 bis 16 

Sort leren 


Programmende 



Probelauf des 


rectory-Sort ier Programms : 


Directory vorher: 

>CMD”I 1 

NOTNAMED 00/00/00 
FORTHD/CMD RS232/CMD 
COLCOM/CMD C0LASM0/CM0 
PASCAL TAPEDI/CMD 

C0LM0N3/CM0 FORTH/CMD 
UHRCOPY/CMD BASICPLS/CMD 
COLZAP/CMD PACKER/CMD 
CCOPY/CMD EDITOR/CMD 

READY 


BC0DE2/CMD 

ZEICHEN 

COLMON1/CMD 

ZEDIT/CMD 

COLOFF/CMD 

COLMON3D/CMD 

SOUND 


Di rectory-Sort i erprogramm 
Welches Laufwerk soll sortiert werden'* 1 
Directory von Laufwerk 1 
104 Directory-Eintraege : 

81 belegt, 

23 frei, 

2 unsichtbar. 

2 System-Programme 

Nach < NAME > oder <EXT>ension sortieren'* 
NAME 


Directory nachher: 
>CMD"I 1 

NOTNAMED 00/00/00 

BAS I C PL 5/C MD BC0DE2/CMD 

COLASMD/CMD COLCOM/CMD 


C0LM0N3/CMD 

COLZAP/CMO 

FORTHD/CMD 

RS232/CMD 

UHRCOPY/CMD 

READY 


COLMON3D/CMD 

EDITOR/CMD 

PACKER/CMD 

SOUND 

ZEDIT/CMD 


CCOPY/CMD 

COLMONl/CMD 

COLOFF/CMD 

FORTH/CMD 

PASCAL 

TAPEOI/CMD 

ZEICHEN 





il ist ing: 


10 CLERR 10000 
20 DEFINT R-Z 
30 CLS 

40 COLOUR 16 

50 PRINT"Directory-Sort ierprogramm" 

60 PRINT 
70 PRINT 

80 INPUT "Welches Laufwerk soll sortiert werden”iR 
90 R = I NT CR) 

100 IF R<0 OR R>3 THEN 30 

110 N*= "DIR/SYS ! ” +RIGHT* C STR* C R 1 . 1J 

120 ON ERROR GOTO 170 

130 OPEN "1". 1, N* 

140 CLOSE 

150 ON ERROR GOTO O 
160 GOTO 220 

170 PR INT "Lese fehl er i«n Directory 

180 PRINT"Druecken Sie eine Taste.” 

190 Z*= INHEY* 

200 IF INHEY* THEN 200 ELSE 30 

210 RESUME NEXT 
220 OPEN ”0” . 1 . N* 

230 L=C LOFC 11-21*8 
240 DIR DE * C L 1 , HC£L) 

250 FIELD 1. 32 RS H*£ll, 32 RS HSC2), 32 RS H*(3), 32 RS H*C4) . 32 RS 
H*£5) . 32 RS H* £ 61 . 32 RS H*£7). 32 RS H»£8) 

260 FOR X=3 TO LOF(l) 

270 ON ERROR GOTO 210 

280 GET 1. X 

290 ON ERROR GOTO 0 

300 FOR Y-l TO 8 

310 DE*( £LOF £ 1 1 -X 1 *8+Yl *H*£ YD 

320 NEXT Y. X 

330 ON ERROR GOTO 210 

340 GET 1 . 2 

350 ON ERROR GOTO O 

360 FOR X-0 TO LOF£l)-3 

370 FOR Y=1 TO 8 

380 HCCC LOFC 1 1 -3-X1 *8+Y) -RSC C MID* C H* C Y) . X+l, 1)1 

390 NEXT Y, X 

400 FR=0 

410 SS=0 

420 IV-0 

430 FOR X= 1 TO L 

440 IF £ RSC ( DE* C XI 1 RNO 161-0 THEN FR-FR+1: GOTO 480 

450 IF ( RSC £ DE* £ X 1 1 RND 128100 THEN 480 

460 IF £ RSC £ DE* £ XI 1 RND 641 <>0 THEN SS-SS+1 
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470 IF C ASCtDEltX)) AND 8)00 TUEN IV*IV+1 
480 NEXT X 
490 COLOUR 3 

500 PRINT"Dl rectory von Laufwerk 
510 PRINT RIGHTSCN1 , 1) 

520 PRINT 

530 COLOUR 16 

540 COLOUR 2 

550 PRINT USING"###” :L : 

560 COLOUR 5 

570 PRINT" Directory-Eint raege : ” 

580 PRINT 

590 COLOUR 2 

600 PRINT USING"###" : FR : 

610 COLOUR 5 

620 PRINT" belegt." 

630 COLOUR 6 

640 PRINT STRING! C 39 , 217) 

650 COLOUR 16 
660 COLOUR 2 

670 PRINT US I NG"###" : L - FR i 

680 COLOUR 5 

690 PRINT" frei." 

700 COLOUR 6 

710 PRINT STR I NGl ( 39 . 217) 

720 COLOUR 16 
730 COLOUR 2 
740 PRINT USING"###"; IV! 

750 COLOUR 5 

760 PRINT" unsichtbar," 

770 COLOUR 6 

780 PRINT STR I NGl C 39 , 217) 

790 COLOUR 16 
800 COLOUR 2 
810 PRINT USING"###"; SS: 

820 COLOUR 5 

830 PRINT" System-Programme” 

840 COLOUR 16 
850 PRINT 
860 PRINT 

870 INPUT "Nach < NAME > oder <EXT>ension sortieren":« 
880 IF Al = "NAME " TUEN Sl=6: Ll=8: S2=14t L2=3: GOTO 910 
890 IF A1*"EXT” THEN Sl«14: Ll»3: S2-6: L2=8s GOTO 910 
900 GOTO 490 
910 FOR X=1 TO L-l 

920 IF C ASCCDE1CX) ) AND 64)<>0 THEN 1110 
930 IF t ASC C DE! t X) ) AND 16)=0 THEN 1110 
940 IF ( ASC(DEltX)) AND 128)<>0 THEN 1110 
950 FOR Y-X+l TO L 

960 IF ( ASCCDEMY)) AND 64 ) 00 THEN 1100 
970 IF C ASCCDE1CY)) AND 16)=0 THEN 1100 
980 IF C ASCCDEK Y) ) ANO 128)00 THEN 1100 
990 Tll^niDlCDElCX) . Sl. LI) 

1000 T21=MID1CDE1C Y) , Sl , LI) 
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<+21 

,0 NEXT Y, X 

F 0 HD = 2+ PEEK C &H 4300 1 

10 POKE HD, PEEK C HO) 

JO PUT 1 , 2 

)0 FOR X=3 TO LOFC1) 

.0 FOR Y= 1 TO 8 

>0 LSET H$(Y)=DE$t(L 

JO NEXT Y 

K> POKE HO, PEEK (HD) 
iO PUT 1, X 
JO NEXT X 

ro POKEJ.H400C, 201 
)0 CLOSE 
JO END 








Programms 'Extended Directory: 


Extended Directory 
Welches Laufwerk"* 1 
Maske des Filenamens'* 

Alle Files 

Ausgabe auch auf Drucker CO/Nl'* 0 
Name EOF LRL Grans Bytes 


BOOT/SYS 

0 IR/SYS 

ZEDIT/CMD 

TAPEDI/CMD 

UHRCOPY/CMD 

EOITOR/CMD 

FORTH/CMD 

FORTHD/CMD 

PACHER/CMD 

RS232/CMD 

COLZAP/CMD 

COLMON1/CMD 

COLMON3/CMD 

C0LM0N3D/CMD 

COLOFF/CMD 

COLCOM/CMD 

BCODE2/CMO 

CCOPY/CMD 

COLASMD/CMD 

8ASICPL5/CMD 


5/000 256 
15/000 256 
33/136 256 
8/037 256 
6/188 256 
36/229 256 
46/149 256 
29/042 256 
18/072 256 
1/201 256 
22/092 256 
17/072 256 
57/088 256 
59/167 256 
6/159 256 
60/166 256 
11/048 256 
2/236 256 
26/179 256 
21/102 256 
EOF LRL 


1 1280 

3 3840 

7 8584 

2 2085 

2 1724 

8 9445 

10 11925 

6 7466 

4 4680 

1 457 

5 5724 

4 4424 

12 14680 

12 15271 

2 1695 

13 15526 

3 2864 

1 748 

6 6835 

5 5478 


SOUND 15/040 256 4 3880 

ZEICHEN 27/220 256 6 7132 


Di sket t en-Name : ROEOEL 
Disketten-Datum: 12/34/56 
29 freie Granules 





1000 MIOiCTi. 33. 6 3 =R$ 
lOlO PRINT Ti 

1020 IF D4 = ":T THEN LPRINT T$ 
1030 C«C+1 

1040 IF C < 20 THEN 1100 




1050 COLOUR 5 

1060 INPUT”<RETURN> zum Fort rahren":X* 

1070 COLOUR 16 
1080 X=X+1 

1090 IF X< =L THEN 510 
1100 X=X+1 

1110 IF X< =L THEN 610 

1120 FIELD 1. 96 AS GT* , 112 AS OUMMY1, 8 AS NM* , 8 AS DT* 

1130 ON ERROR GOTO 1530 

1140 GET 1 . 1 

1150 ON ERROR GOTO O 

1160 CLOSE 

1170 FR=0 

1180 W* 1 

1190 PRINT 

1200 COLOUR 2 

1210 PRINT”Bi t te einen Moment warten" 

1220 COLOUR 16 
1230 PRINT 

1240 G=ASCCMIO*CGT* , W. 1)) AND 7 
1250 FOR Y=1 TO 3 
1260 Gl = INTCG/2) 

1270 G2=G-G1*2 
1280 FR=FR+1 -G2 
1290 G=G1 
1300 NEXT 
1310 W=W+1 

1320 IF W<97 THEN 1240 

1330 PRINT - 

1340 IF D*="3" THEN L PR INT 
1350 PRINT "Oisketten-Nome : 

1360 COLOUR 5 
1370 PRINT NM* 

1380 COLOUR 16 

1390 IF D*="3" THEN LPRINT"Disket ten-Name : " ; NM* 

1400 PRINT "Di s ketten- Datum: 

1410 COLOUR 5 
1420 PRINT DT* 

1430 IF DS="3" THEN LPRINT"Disket t en-Dat um : " : DT* 

1440 COLOUR 16 

1450 PRINT"Freie Granules:": 

1460 COLOUR 5 

1470 PRINT US ING ’’#### " : FR 

1480 IF D*=”D” THEN L PRINT USING”####" ; FR : : LPRINT” freie Granules" 
1490 CLOSE 
1500 PRINT 

1510 INPUT"< RETURN > fuer Neustart":A* 

1520 RUN 

1530 RESUME NEXT 




Anhang fl; Basic-Tohen Liste 


Basic Eint achf ol en? 
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Colour-Basic Doppel tokens 
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Anhang C: Software! iste 


Cd l nur-GEn i e 

Snf twar^ 





















handenen 















OEMOPROGRAMM: Hl 
Colour-Genie z.: 
Möglichkeiten II 
Preis: 25.- DM 


ANDROMEDA: E: 














MAMPFMAN: 


Pre 15 : 25.- 

MAMPFMAN 2: 
und hohe Sp 
Preis: 39.- 
















LUNAR-LANDER : Eine perfekte Mond l andungss l mul at lon mit Super- 
grafik ' Die Idee ist zwar alt, aber die Ausführung dieses 
Programmes macht den "Lunar-Lander" zu einen unserer besten 
Spiele, Sie benötigen 32B Ram. Das Spiel kann wahlweise auch 
mit den EG2013-3oyst icks gesteuert werden. 

Preis: 39.- DM 

COLOUR-FROGGER : Retten Sie Ihren Frosch zuerst über die Straße 
und dann über den Fluß i Ein spannendes Unterhaltungsspiel, 
an dem die ganze Familie lange Zeit Spass haben wird. Besonders 
gelungen ist bei diesem Programm die musikl ische Untermalung. 
Preis: 39.- DM 

CRAZY-PAINT: Das neueste Spiel von 3. Buchmuller, dem Author 
des TCS-Choppers - Super-Grafik und Super-Ton i 

In 16 Levels müssen Sie. ähnlich wie bei unserem Spiel ’Netzo', 
versuchen alle Flachen auszumalen, ohne sich von den hektischen 
Gegnern erwischen zu lassen. 

Preis: 89.- DM 

MEMORY: Das beliebte Brettspiel nun auch als Version für das 
Colour-Genie ' 

Schone Grafik und die gute Spiel Idee machen dieses Programm 
empfehlenswert. 

Preis: 39.- DM 

GALACTIC ATTACB: Das neue Spiel von Blaus Weber, Versuchen Sie 
eine Vielzahl wilder Angreifer so lange wie möglich zuruck- 
zuhatten. Ein sehr schnelles Spiel mit guter Grafik. 

Preis: 39.- DM 

COLOUR-SBAT: 3etzt können Sie auch Skat gegen Ihr Colour-Genie 
spielen ■ Wenn Sie mal Lust zum Skat spielen haben. Ihnen aber 
die Spielpartner fehlen, spielen Sie halt gegen den Computer i 
Gute Grafik. Achtung: 32B RAM sind notwendig. 

Preis: 39.- DM 

Colour-Genie - FLUGSIMULATOR: Endlich ist er da mm 
D er Colour-Genie Flugsimulator bietet dreidimensionale Dar- 
teilung in Echtzeit. Radar. 18 Instrumente, Luf tkampfmodus ... 
Ein Programm, daß jeder Col our -Geme-Bes l t zer haben sollte i 
Eine ausführliche deutsche Anleitung liegt bei. 

Achtung: Das Programm benötigt 32B RAM. 

Preis: 69.- DM 
























BESTELLFORMULAR 





